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IT'S A 



WHAT ARE WIREFRAME 
DRAWINGS? 





SETTING UP THE ROUTINES 



DRAWING A GRID 



DRAWING A CIRCLE 



In the first of a series of articles on 
wireframe drawing, find out how to 
construct grids and circles. Later, 
you'll see how these become the 
building blocks of 3-D images. 

Animated engineering drawings of cars and 
other machinery have become popular adver- 
tising images — and most impressive they are, 
too. These 'wireframe drawings' are among 
the latest design aids made possible by com- 
puter graphics. If, as a home computer user, 
you have longed to produce such animated 
images on your TV screen, then you will be 
disappointed to learn that your micro cannot 
match the splendour of advertising images 
produced jointly by computers, artists and 
photography experts. All is not lost, however, 
because you can learn in this series of articles 
how to draw and manipulate three- 
dimensional images in a way that many design 
engineers will envy. 

Your computer's ability to address indiv- 
idual points or pixels (picture elements) on the 
screen provides a powerful means of drawing 
as you have seen in a number of graphics 
articles. For example, the Spectrum has 256 
pixels horizontally and 176 pixels vertically. 
Normally you can plot straight lines or points. 
Combined with colour facilities, these can be 
used to provide high-resolution displays. 

The normal method of drawing lines on 
computer controlled graphics systems is 
similar to the way you use a pen and paper. 
You can move the cursor over the screen 
without marking it, or you can move it on the 
screen to leave a mark. Changing colour is as 
simple as changing pens. The main difference 
between the computer system and a person 
using pen and paper is that the computer is 
faster and better at drawing straight lines — a 
task that is difficult for people, without the use 
of a ruler. 

This line drawing facility allows you to 
draw outline images, and also 'wireframe' 
pictures of three-dimensional objects. Wire- 
frame pictures are an imaginary representation 
which consist of a grid of lines over the surface 
of the object. Often no attempt is made to hide 
the lines at the back of the object — to do so 
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requires a considerable amount of extra com- 
putation. The result looks as if the object is 
made from a wire frame joined to form a grid 
or mesh. 

This type of display can be animated by 
turning and moving the wireframe object, as in 
the advertising images of a car, say. The rapid 
animation is not practicable on a home com- 
puter, because each frame needs to be dis- 
played at a rate of at least 25 per second for 



smooth animation, and a home computer takes 
much longer than ^ of a second for all but the 
simplest displays. Indeed, most commercial 
computer animated displays are not generated 
in 'real time' (as they happen on the screen). 
Instead, each picture frame is generated sepa- 
rately, taking seconds, minutes or even hours 
for complicated high-resolution displays, and 
then saved on film or video tape for viewing 
later at the correct speed. 



For static displays, time is not important, 
although you might become impatient waiting 
for the picture to be completed. Often, how- 
ever, it is just as interesting, if not more so, 
to watch a wireframe picture being built up 
on the screen, as it is to see the finished 
object — especially with some of the more 
complicated drawings. 

The drawing routines in this article are 
beyond the scope of the ZX81. Users of the 



Commodore 64 need a Simons' BASIC car- 
tridge, and the Vic 20 needs a Super Expander 
cartridge in order to RUN these programs. 

It is best to begin by drawing simple 
shapes — such as a cube or sphere — then as you 
gain experience, you can try drawing more 
complicated and interesting shapes. In this 
article you will learn how to generate some 
two-dimensional shapes and to make them 
appear to be in three-dimensional space. 



BASIC STEPS 



Even with the high-speed capacity of your 
computer, and its ability to draw lines, it takes a 
great deal of work to produce a complicated 
wireframe picture. The basic steps are in a set 
of routines, which include the basic drawing 
commands. Essentially, you need a command 
to move the cursor without drawing, and one 
to draw from the last cursor position to a new 
one. These commands are slightly different 
from machine to machine. They are the PLOT, 
MOVE, DRAW and LINE commands you have 
used often in the other graphics articles. 

At the start of a graphics program you 
normally set the computer to a graphics mode, 
if necessary, and clear the screen. If you have a 
choice of screen resolution, choose the highest. 
It is also a good idea to structure the program, 
so that all the drawing commands are collected 
together into subroutines. Besides being 
sound programming practice, this methodical 
approach prevents you frequently having to 
rewrite sections of program that achieve the 
same results. And because all the commands 
that perform a certain task are collected in one 
section of program, it is a simple matter to 
develop or expand the program and to under- 
stand it. Structuring actually slows down the 
program, but this is not important for static 
displays, and the greater flexibility it gives — 
particularly for an application such as wire- 
frame drawing — is a great advantage. 



INITIALIZING THE MACHINE 



To set up the first stage of these drawing 
routines, enter this section of programming, 
but do not RUN it yet, because it is incomplete. 



9000 REM' INIT 

9010 BORDER 4: PAPER 7: INK 0: CLS1ET 

N = 
9070 RETURN 
9100 REM MOVE 
9110 PLOT X,Y 
9120 RETURN 
9200 REM DRAW 

9210 DRAW X-PEEK 23677,Y— PEEK 23678 
9220 RETURN 



9000 PRINT "□' 
9030 RETURN 



sa 



9000 SCNCLR 
9030 RETURN 



9010CLS:CLG 

9030 ENDPROC 

9100DEFPROCMOVE(X, Y) 

9110 MOVE X,Y 

9120 ENDPROC 

9200 DEF PR0CDRAW(X, Y) 

9210 DRAW X, Y 

9220 ENDPROC 

1SD 

9000 PCLS 
9030 RETURN 

The Commodore 64, Vic 20, Dragon and 
Tandy programs are shorter because these 
computers allow you both to move the cursor 
and draw on the screen using a single com- 
mand. The Spectrum and Acorn programs set 
up subroutines to move the cursor position 
without drawing (Lines 9100 to 9120) and to 
draw on the screen (Lines 9200 to 9220). This 
is so that these routines can be combined to 
make a single moving and drawing routine. 

Now, when you wish to draw a shape, you 
need not tell the computer how to move the 
cursor or how to mark the screen to form each 
different shape. Instead, it is much simpler to 
define each new shape in terms of these basic 
routines. 



LINE DRAWING 



The simplest shape you could wish to draw is a 
line, so here is a routine to do it (you still won't 
be able to RUN the program): 



9500 REM LINE 

9510 LET X = XS: LET Y = YS: GOSUB 9100 
9520 LET X = XE: LET Y = YE: GOSUB 9200 
9550 RETURN 



9500 LINE XS,YS,XE,YE,1 
9550 RETURN 



9500 DRAW 1,XS,YS TO XE,YE 
9550 RETURN 



9000 DEF PROCINIT 



9500 DEF PROCLINE(XS,YS,XE,YE) 
9510PROCMOVE(XS,YS) 
9540 PR0CDRAW(XE,YE) 
9550 ENDPROC 

9500UNE(XS,YS)-(XE,YE),PSET 
9550 RETURN 

This routine specifies a start position, coordi- 
nates (XS,YS), and an end position, coordinates 



(XE,YE), for the line. Some computers need 
DRAW or LINE commands; for others these are 
already specified in the routines from Line 
9100 to Line 9220. The line-drawing routine 
is the basis of most wireframe drawing 
programs, so it can be used to establish one of 
the ' buildi ng blocks ' in the drawing process — a 
grid. 



DRAWING A GRID 



To depict a surface and any irregularities, such 
as cracks, hills and dales it might contain, it is 
best to visualize it not as one continuous area 
enclosed in a rectangle, but as a grid of 
horizontal and vertical lines. Any irregular 
features in the surface can be shown as 
distortions of these lines. Enter the next 
section of program (but do not R U N) to define a 
routine to draw a grid: 



5000 LET JA = LW/NX 

5010 LET XS = XA 

5020 FOR J = TO NX 

5025 LETYS = YA: LETXE = XS: LET 

YE = YA + LH 
5030 GOSUB 9500 
5040 LET XS = XS + JA 
5050 NEXT J 
5060 LET JA = LH/NY 
5070 LET YS = YA + LH 
5080 FOR J = TO NY 
5090 LET XS = XA + LW: LET XE = XA 

YE=YS 
5100 GOSUB 9500 















LET 
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Can I add colour to liven up my 
wireframe drawings? 

Usually, wireframe drawings are in two 
colours only — most commonly black and 
white. One reason for this is that too 
many colours would complicate the 
image. More importantly, however, the 
addition of colour reduces the resolution 
of the image and in some computers, 
such as the Spectrum, can cause 
problems when one colour overprints 
another. On the Commodore 64, the use 
of colour would halve the drawing 
screen, so the program would have to be 
modified to compensate. Towards the end 
of this series of articles, we discuss the 
addition of colour further, but there 
is no reason you should not 
experiment with colour now 



5110 LET YS = YS-JA 
5120 NEXT J 
5130 RETURN 

KEKESSii 

You'll need to make just one change to make 
this section of program run on the Vic 20 . Line 
5110 should read: 

5110YS = ABS(YS-JA) 

5000JA = LW/NX 

5010XS = XA 

5020FORJB = 0TONX 

5025 YS = YA:XE = XS:YE = YA + LH 

5030 GOSUB 9500 

5040XS = XS + JA 

5050 NEXT J B 

5060JA = LH/NY 

5070YS = YA + LH 

5080 FOR JB = 0TONY 

5090 XS = XA + LW:XE = XA:YE = YS 

5100 GOSUB 9500 

5110YS = YS-JA 

5120 NEXT JB 

5130 RETURN 
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5000 DEF PROCGRID(XA,YA,LW,LH,NX,NY) 

5010JA = LW/NX 

5020XS = XA 

5030FORJB = 0TONX 

5070 PROCLINE(XS,YA,XS,YA + LH) 

5080XS = XS+JA 

5090 NEXT J B 

5100JA = LH/NY 

5105YS = YA + LH 

5110 FOR JB = 0TO NY 

5150 PROCUNE(XA+LW,YS,XA,YS) 

5160 YS = YS-JA 

5170 NEXT JB 

5180ENDPROC 

Coordinates (XA,YB) specify the bottom left- 
hand corner of the grid. LW specifies the width, 
and LH the height. NX specifies the number of 
horizontal divisions, and NY the number of 
vertical divisions. The variable J A specifies the 
distance between the vertical lines, and the F0 R 
. . . NEXT loop draws horizontal lines stepped 
off in this distance. The second FOR. . .NEXT 
loop draws vertical lines in steps calculated by 
Line 5060 (5100 for the Acorn). 

The routine between Lines 5000 and 5180 
draws horizontal lines in one step from left to 
right, and vertical lines in one step from 
bottom to top, so that such a grid can map only 
flat surfaces. It could not, for example, depict 
irregularities within the surface. 

To display the grid on the screen, enter 
these lines to call the routine and RUN the 
program: 



100 GOSUB 9000 

1 75 LET XA = 0: LET YA = 0: LET LW = 255: 
LET LH = 175: LET NX = 16: LET NY = 12 
180 GOSUB 5000 
190 STOP 



KB 






100 HIRES 0,1 :C0L0UR 5,1 

175XA = 0:YA = 0:LW = 320:LH = 200: 

NX = 4:NY = 4 
180 GOSUB 5000 
190 GOTO 190 



KB 



100 GRAPHIC 2:C0LOR 1,5,0,0 

175 XA=0:YA = 0:LW = 1023:LH = 1023: 

NX = 4:NY = 4 
180 GOSUB 5000 
190 GOTO 190 



100 MODE0 
110 PROCINIT 

180PROCGRID(0,0,1279,1023,20.15) 
190 END 

(Line 1 10 is not necessary in this program at 
the moment, because Line 100 achieves the 
same result. It is included for completeness, 
because it is expanded in a later program.) 



ssu 



100PMODE4:SCREEN1,1 

105PI = 4'ATN(1) 

110 GOSUB 9000 

175XA = 0:YA = 0:LW = 255:LH = 191: 

NX = 4:NY = 3 
180 GOSUB 5000 
190 GOTO 190 

When you RUN the program, you should see a 
grid filling the entire screen. To see how 
versatile the program is, make the changes 
below and RUN again: 



175LETXA = 10: LETYA = 10: LET 

LW = 240: LET LH = 1 44: LET NX = 1 : LET 
NY = 1 



KB 



175XA = 10:YA = 10:LW = 300:LH = 180: 
NX = 1:NY = 1 

BE 

175 XA = 7:YA = 7:LW = 1007:LH =1007: 
NX = 1:NY = 1 



180 PROCGR1D(0,0,1279,1 023,1,1) 
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175XA=10:YA = 10:LW = 240:LH = 160: 
NX = 1:NY = 1 

This time, a rectangular box is drawn, because 
a grid with one horizontal and one vertical 
division is specified. By giving NX and NY 
suitable values, as above, you can draw a grid in 
which the number of horizontal divisions is 
different from the number of vertical divisions . 
Make the changes below and RUN again: 



175 LETXA = 0: LET YA = 0: LET LW = 160: 
LET LH = U4: LET NX = 15: LET NY = 10 



SB 

175XA = 10:YA = 80:LW = 150:LH = 90: 
NX=15:NY = 10 

GH 

175XA = 7:YA = 500:LW = 507:LH = 507: 
NX = 15:NY = 10 



180 PROCGRID(0,0,800,765,15,10) 

ma 

175XA=0:YA = 31:LW = 160:LH = 160: 
NX = 15:NY = 10 

The grid no longer fills the screen, but instead 
is a square in the bottom left-hand area. The 
square shape is achieved by giving LW and LH 
the appropriate value, and the number of 
divisions is specified by NX and NY as above. 



DRAWING CIRCLES 



A rectangular grid is not the only 'building 
block' you can use for wireframe drawing; it 
is often useful to be able to draw circles. Some 
micros have a command that lets you draw 
circles by specifying the centre and radius. 

This direct command, however, does not 
give the degree of controllability you need for 
drawing three-dimensional images. With per- 
spective, a circle in one view might be an ellipse 
in another, or some other curve in others. 
Although the CIRCLE command can be used to 
draw ellipses, it cannot usually cope with the 
third dimension, which is essential for natural- 
looking shapes. So it is better to be able to 
define a general function. 

One way to draw a circle is with a series of 
short, straight-line sections . Provided the lines 
are short, the circumference of the circle will 
appear as a smooth curve, but the shorter the 
lines, the more of them you need and the longer 
will be the drawing time. Here is a routine to 
draw a circle radius R, with centre at (XS,YS); 
do not RUN the program yet: 



6000 IF N = THEN LET N = 20 + INT (R/10) 

6020 LET JA = 2*PI/N 

6050 LET XR = XS: LET YR = YS 

6060 LET JB = 0: LET XS = XS + R 

6070 FOR J = 2 TON 

6080 LET JB = J6 + JA 

6090 LET XE = XR + R*C0S JB: LET 

YE=YR + R'SIN JB: GOSUB 9500 
6100 LETXS = XE: LETYS=YE 
6110 NEXT J 
6120LETXE = XR + R:LETYE = YR:GOSUB 

9500 
6130 LET XS = XR: LET YS = YR 
6160 RETURN 

Ol tESSbi 

On the Commodores, change the PI in Line 
6020 to the symbol n. 

6000 IF N=0THEN N = 20 + INT(R/10) 

6020JA = 2*PI/N 

6050XR = XS:YR = YS 

6060JB=0:XS = XS + R 

6070 FOR JC = 2 TON 

6080 JB=JB + JA 

6090 XE = XR + R*C0S(JB):YE = YR + R'SIN 

(JB):GOSUB9500 
6100XS = XE:YS=YE 
6110 NEXT JC 

6120 XE = XR + R:YE = YR:GOSUB9500 
6130XS = XR:YS=YR 
6160 RETURN 




6000 DEF PROCCIRCLE(XS,YS,R,N) 

6010 IF N = THEN N = 20 + INT(R/10) 

6020JA = 2-PI/N 

6050PROCMOVE(XS + R,YS) 

6060 JB = 

6070 FOR JC = 2 TON 

6080JB = JB + JA 

6110 PROCDRAW(XS + R*COS(JB), 

YS + R-SIN(JB)) 
6120 N EXT JC 

6150PROCDRAW(XS + R,YS) 
6160ENDPROC 

The variable N sets the number of straight-line 
segments to be used for the circumference of 
the circle. If you specify N = 0, Line 6000 
(6010 on the Acorn) calculates how many 
segments are needed for the smoothest circle, 
taking into account the size of the display. 

Line 6020 calculates the angle of each line 
segment on the circumference. Line 6050 
moves the cursor to a position on the circum- 
ference. The FOR. . . NEXT loop draws each line 
segment, except the last one, which is drawn by 
Line 6120 (6150 for Acorn) to ensure that the 
last line joins up with the first. 



To see how the routine works, delete Line 
180 and add the next few lines to call it: 

150 FOR R = 20 TO 70 STEP 10 

155 LET XS = 128: LET YS = 102: LET N = 24 

160 GOSUB 6000 

170 NEXT R 



1 50 FOR R = 20 TO 100 STEP 20 
1 55 XS = 1 60:YS = 1 00: N = 24 
160 GOSUB 6000 
170 NEXT R 



1 50 FOR R = 50 TO 500 STEP 100 
155XS = 512:YS = 512:N = 24 
160 GOSUB 6000 
170 NEXT R 



150 FOR R = 60 TO 500 STEP 80 
160 PROCCIRCLE(640,512,R,24) 
170 NEXT R 



mu 



150 FOR R = 0TO 100 STEP 20 
1 55 XS = 1 28:YS = 1 02: N = 24 

160 GOSUB 6000 
170 NEXT R 

The display on your screen should now show a 
number of concentric circles at the centre of 
the screen. As with the Grid routine, you can 
vary the parameters in the program that calls 
the routine to change the display. Line 150 sets 
the radius of the first circle, and the amount by 
which it is increased to give the radii of 
successive circles. Line 1 55 ( 1 60 on the Acorn) 
specifies the centre of the circles and the 
number of line sections in the circumference. 
As an exercise, vary these values and note the 
effect on the display. 

If you are wondering what has happened to 
the grid routine, it is still in the memory, but 
since you have rewritten the lines of code that 
call the routine, the computer does not display 
it. Routines like these can be collected into a 
library of useful line graphics routines for use 
as needed. They can be used in all sorts of 
graphics programs, as well as those for wire- 
frame drawing. You can add new routines as 
you need them . Once they are in the computer, 
save them on tape or disk. When you want to 
use them, load them into memory again, 
merging several routines together if necessary 
(see pages 339 to 343). 

Next time you'll see how to use these 
routines to create three-dimensional wire- 
frame drawings. 
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TRAC 




It is almost impossible to key in a long 
program — like your assembler — without in- 
troducing some errors. No matter how much it 
is checked, there are some bugs that defy even 
the deftest programmer, without the aid of 
some powerful diagnostic tool. 

Having a properly working assembler is 
essential. Many of the following 
chapters depend on it and it is 
vital that you locate all of the 
bugs in it now. So INPUT is 
providing Commodore 64 and Vic 20 
owners with a trace program to help 
them check their assemblers out. The 
Dragon and Tandy have trace programs 
built in. So do the BBC and Electron. 
And a trace program for the Spectrum 
was given last time. 

The trace program listed below is 
given in assembly language as well as machine 
code. If your assembler is not working you can 
feed in the trace program machine code using 
the machine code monitor given on pages 280 
and 281. If your assembler is working, you can 
assemble the trace and SAVE it so that you can 
use it to diagnose problems in other BASIC 
programs that you have written. And if you are 
not sure whether your assembler is working or 
not, you can test it by trying to assemble the 
trace program. 



HOW TO USE IT 



When a BASIC program will not RUN, your 
computer will often give you an error message 
which tells you which line it cannot execute. 
This may be all you need to know to debug a 
short, simple program. But when your 
programs get longer and more complicated, 
such a message may still leave you in the dark. A 
particular line may be executed a number of 
times while the program is being RUN. And 
other lines that have been executed before it 
may set the variables to values that cause 
problems in the line which your computer 
eventually falters on. The articles on pages 334 
to 338 and 375 to 379 showed how difficult it 
can be to de-bug a program. 

The trace program for the Commodore 
simply PRINTs out on the screen the number 
of each line as it is executed. 

You need a copy of the program — either 



When you are all at sea with your 
programs and the error messages are 
flying, switch on this trace and get 
back on course, before you sink 
beneath a sea of syntax 



#4tP *** 
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printout or the version published in INPUT. 
Follow the program to the point where it 
stops, using the trace. This way you will 
be able to see clearly the structure of the 
program. You'll be able to spot whether the 
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WHY YOU NEED A TRACE 
ENTERING THE TRACE 



TRACKING DOWN 



ERRORS 



computer is RETURNing from subroutines 
properly. You'll also be able to work out the 
value of the variables as you go and check that 
conditional IF ... THEN statements are being 
fulfilled and that GOTOs go to the right line. 



HOW IT WORKS 



A trace program is rather special. It runs while 
another program — the BASIC program that 
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YOUR ASSEMBLER 



TRACE WORKS 



WHAT A TRACE CAN DO 



HOW TO USE IT 




you are checking out — is RU N ning . Normally it 
is not possible to run two programs in your 
computer at the same time. In this case though, 
the two programs — although they seem to be 
running simultaneously — are not. The trace 
runs in pauses in the main program using what 
are called interrupt driven routines. 

These interrupt the main program every 
60 th of a second on the Commodore 64. While 
the main program is halted for a fraction of the 
second, the interrupt driven routine is perfor- 
med. And when it is finished, the main 
program RUNs again until the next interrupt. 
BASIC programs are always interrupted 
when they are RUN. The computer breaks off 
every 60th of a second to scan the keyboard 
and to check to see if a key has been 
pressed. Interrupt driven routines are 
simply tacked onto this keyboard scan 
routine. 

The high frequency of interruption 
means that a long line of BASIC may 
be interrupted several times during 
its execution. So the trace may give 
you a line number repeated several 
times. Conversely, if a line is 
very short — say a single PRINT 
or a RETURN from a subroutine — 
there is a slight chance that the 
trace will miss it. Sometimes, 
^fcsuch lines take less than a 60th 
^H of a second and the interrupt 
^^^B could miss them. If the trace 
^| I ^^ does not list the number of 
a short line, try adding a 
delay— a FOR ... NEXT 
loop or a REM state- 
ment — to it. 



The following program prints out the number 
of the line of BASIC being executed as it is 
executed in the top left-hand corner of the 
screen. This is to keep it out of the way of 
anything that your BASIC program might 
want to PRINT on the screen. 

If you key it in using your assembler, the 
origin is 49,152. If you are using your machine 
code monitor the start address is also 49,152. 
And to switch on the routine you use SYS491 52 . 

When you RUN a program, the BASIC line 



numbers will be flipped through very rapidly. 
To slow it down to a readable speed, press the 
[FT| key. To stop it, hit the [RUN/STOPl key. This 
will leave the line number the machine stopped 
on displayed. Key in CONT, and your computer 
will start again from where it left off. 



ORG 49152 




SEI 


78 


LDA #&0D 


A9 0D 


STA&0314 


8D14 03 


LDA #&C0 


A9C0 


STA&0315 


8D15 03 


CLI 


58 


RTS 


60 


LDA #&01 


A9 01 


LDX &D021 


AE21 D0 


CPX #&F1 


E0F1 


BNE COL 


D0 02 


LDA #&00 


A9 00 


.□COLSTA&FF 


85 FF 


LDA # &00 


A9 00 


STA &FE 


85 FE 


LDA &39 


A5 39 


STA &FB 


85 FB 


LDA &3A 


A5 3A 


STA &FC 


85 FC 


LDY # &07 


A0 07 


.□ DIG LDX #&30 


A2 30 


.□FIG SEC 


38 


LDA &FB 


A5FB 


SBCNUMS-1,Y 


F9 75 C0 


PHA 


48 


DEY 


88 


LDA &FC 


A5FC 


SBCNUMS + 1,Y 


F9 77 C0 


BCC OUT 


90 09 


STA &FC 


85 FC 


PLA 


68 


STA &FB 


85 FB 


INX 


E8 


INY 


C8 


BNE FIG 


D0E8 


.□ OUT PLA 


68 


TXA 


8A 


STY &FD 


84 FD 


INC &FE 


E6FE 


LDY &FE 


A4FE 


STA &0420,Y 


99 20 04 


LDA &FF 


A5FF 


STA &D820,Y 


99 20 D8 
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LDY &FD 


A4FD 


DEY 


88 


BPL DIG 


10 D1 


LDA &FB 


A5FB 


ORA #8.30 


09 30 


STA &0425 


8D 25 04 


LDA &FF 


A5FF 


STA &D825 


8D 25 D8 


LDA &C5 


A5C5 


CMP #&04 


C9 04 


BNE QUIT 


D0 0A 


LDX #&00 


A2 00 


.D AGAIN LDY #&00 


A0 00 


.DBACKINY 


C8 


BNE BACK 


D0FD 


INX 


E8 


6NE AGAIN 


D0F8 


.□QUITJMP&EA31 


4C 31 EA 


.□NUMSWOR10 


0A00 


WOR 100 


64 00 


WOR 1000 


E8 03 


WOR 10000 


10 27 



HOW IT WORKS 



The first seven instructions form a small 
routine that switches the main program on. S El 
SEts the Interrupt flag in the status register. 
This switches the normal interrupts off so that 
you can change the interrupt vector and point it 
to the trace routine. If you did not disable the 
interrupts while you were doing 
this, there would be a 
danger that an interrupt 
might occur half way 
through the change and be 
directed off to a place you did 
not intend. 

LDA #&0DandSTA&0314, 
and LDA #&C0 and STA &0315 
load the number C00D into the 
interrupt vector, which occupies 
memory locations 0314 and 01315 
hex. The hash # sign tells the assembler 
what follows is a number rather than an 
address, and the ampersand & tells it 
that the number is in hex. There is no 
instruction to load a number directly into 
a memory location. First the number has to be 
loaded into either the A, X or Y register with an 
LDA, LDX or LDY instruction, then contents of 
the register are stored in the appropriate 
memory location with an STA, STX or STY 
instruction. 

C00D is the address of the beginning of the 
main trace routine which starts in the assembly 
language listings here with the instruction LDA 
#&01. 

CLI then CLears the Interrupt flag, in other 
words it enables the interrupts again. And RTS 
ReTurnS BASIC. 

Once those seven instructions have been 



executed, the trace routine has been switched 
on. Now, every 60th of a second, when the 
computer interrupts its main operation to scan 
the keyboard, it is directed to the trace routine 
instead. 



THE MAIN ROUTINE 



You will notice that the main routine does not 
start by switching the interrupts off, as you 
might expect. After all you wouldn't want your 
interrupt routine to be interrupted, as that 
would put it into an endless loop. But on the 
6510 chip (and the 6502) the interrupts are 
automatically disabled when an interrupt 
routine is started. 

The first thing the main routine does do is 
check the background screen colour — there is 
no point in printing white numbers onto a 
white screen. You won't see them. 

LDA #&01 loads the A register with the 
number 1 , which is the number that will give 
you white. LDX &D021 then loads the X register 



with the contents of memory location D021 
hex, or 53,281 decimal. This location controls 
the background colour. The most significant 
four bits are always held high — that is set to 1. 
So if the background colour is white, the 
contents of that location will be 11110001 in 
binary, 241 decimal or Fl hex. And CPX # &F1 
Com Pares the contents of the X register — that is 
the contents of D021 — with F1 . 

If the background colour is white the CPX 
instruction sets the zero flag in the status 
register. And BNE— Branch if Not Equal — 
jumps over the instruction LDA # &00 to the 
next mention of the label COL if the zero flag is 
not set. But if the background colour is white 
and the zero flag is set, the jump is not 
executed. LDA #&00 then loads the ac- 
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cumulator with 0, the number corresponding 
to black. 

Whatever the result of this test, the contents 
of the accumulator are then stored in the 
memory location FF on the zero page. The 
microprocessor refers back to the number in 
that location when it gets round to putting the 
line number on the screen. 

LDA# &00 and STA &FE sets the contents of 
the zero page memory location FE to 0. This is 



BASIC line which the computer is currently 
executing. FC and FB are free locations on the 
zero page where these numbers can be 
manipulated — remember, these numbers are 
in hex and the routine has to do a considerable 
amount of work on them to print them out in 






digit to poke in that position on the screen, 

SEC SEts the Carry flag. This should always 

be done before a subtraction is carried out 

because it is the 1 from the carry flag that gives 

the 1 that's added to the flipped bits to give 2's 

complement (see page 181). When the 

microprocessor subtracts, it flips the 

bits and adds. The addition takes 

the carry into account. So if the 

carry flag is set to 1, the 1 is 

added in effectively giving 

2's complement. And when 

the carry flag is not set — 

that is, it's — is added in. 

That effectively subtracts 

an extra one. 




^4| w 



going to be used as a counter when the routine 
works out the position of the decimal digits on 
the screen. 

LDA &39 and STA &FB, and LDA &3Aand STA 
&FC transfer the contents of memory locations 
39 and 3A hex, 57 and 58 decimal, into FC and 
FB. Locations 57 and 58 hold the number of the 



decimal on the screen. You wouldn't want a 
trace program that gave you hex line numbers, 
would you? 

The next section works out the decimal 
digits which will then be poked onto the screen. 

LDY # &07 loads the Y register with the 
number 7. This is going to be used as an offset 
and a counter, so the routine knows which 
decimal digit it is working on. And LDX # &30, 
puts 48 decimal into the X register. 48 is the 
ASCII code for the figure and, again, the X 
register is going to be used as a counter, 
counting along the ASC 1 1 codes for the correct 



This is very useful if you are subtracting the 
two-byte numbers. If you set the carry, 
subtract the low bytes first, then the high bytes. 
Then if the low bytes need a borrow the carry 
flag will be set to 0. When the high bytes are 
subtracted, an extra 1 will be subtracted and 
the borrow will automatically be accounted 
for. You will note that the carry flag works the 
other way round from what you would expect 
logically. When it is set to 1 there is no borrow, 
and when it is reset to 0, there is. 

So the rule is: If you' re going to subtract, set 
the carry flag. And if you're going to add, reset 
the carry flag to — you don't want an extra 1 
added in then, after all. 

The next thing that happens in this routine 
is exactly that sort of two-byte subtraction 
routine. LDA SiFB loads the accumulator with 
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the contents of F B, which are the low by te of the 
current line number. SBC NUMS — 1,Y sub- 
tracts the low byte of a number that it looks up 
in the data table which starts at the label N U M S . 
The table comprises the WOR numbers at the 
end of the routine. Each of the decimal 
numbers given there are loaded, as hex, into 
two bytes. The SBC instruction looks up the 
byte you want to subtract, by jumping to the 
byte before the label NUMS— in other words, 
memory location NUMS — 1 — then counting 
the number contained in the Y register on from 
there. So on the first pass, when the contents of 
Y are 7, it subtracts the byte six [7 — 1 ) on from 
NUMS, which is the low byte ofWOR 10000. It 
may seem a little strange to use two offsets like 
this — the — 1 with the label and the contents of 
the Y register — but this saves instructions and 
gives the correct value of the Y register at the 
end of this routine. It' s being used to memorize 
which decimal digit the routine's working on. 

The result of the first subtraction is pushed 
onto the stack with PHA. The contents of the Y 
register are then decremented by DEY. And 
LDA &FC and SBC NUMS + 1,Y subtract the 
high byte of the same decimal in the table. 

BCC means Branch on Carry Clear. So if 
there is carry — or in this case, a borrow — from 
the subtraction, the routine branches to the 
next mention of the label OUT, which appears 
before PLA. Remember that the carry flag is 
clear, or 0, when there is a borrow . And if there 
is no borrow and the carry flag is set to 1, the 
routine proceeds to the next instruction, 

STA & FC puts the remai nder of this high byte 
back in FC. And PLA and STA &FB pulls the 
remainder of the low byte off the stack and puts 
it back in FB . INX increments the X register. The 
effect of this is to make the X register count 
along the ASCII codes of the decimal digits. 

INY increments the Y register. This is done 
because the register was decremented before 
and the value in the Y register needs to be 
restored before the next instruction BNE FIG 
sends the processor round this loop again. 



SAVING BYTES 



BNE means Branch if result Not Equal to zero. 
And the result of incrementing the Y register 
could only be equal to zero if it had been — 1 
before. If you examine how this program 
works in detail you will see that this never 
happens. But using a branch, which uses 
relative addressing, rather than an uncon- 
ditional jump, which uses absolute addressing, 
saves one byte. 

This branch means that the microprocessor 
goes round and round this loop, taking away 
the decimal values it got from the data table 
incrementing the X register — and counting 
along the ASCII codes — as it goes. As you can 



see, the way this routine works out is by 
counting how many times it can take away 
10,000, how many times it can take away 
1,000, how many times it can take away 100 
and how many times it can take away ten. When 
it does these repeated subtractions and finds it 
can't go, the BCC instruction branches out of 
the loop to the instruction PLA. This pulls the 
low byte off the stack into the A register. It is 
immediately disposed of by transferring the 
contents of the X register into the accumulator 
with the instruction TXA. 

The only reason that the low byte is pulled 
off the stack is to prevent the stack growing. 

As the subtraction will no longer go, the X 
register now contains the ASCII value for the 
correct digit to put i nto the decimal place that is 
being worked out. The TXA puts that value into 
the accumulator, ready for outputting. 



PUTTING IT ON THE SCREEN 



STY &FD puts the decimal place counter into 
temporary storage in FD, so that the Y register 
can be used for something else. The position 
counter in FE is then incremented and its new 
value is loaded into the Y register. 

STA &0420,Y is the instruction that actually 
puts the digit onto the screen. Memory 
location 0420 is in the screen area — the top 
right-hand part of it. The ASCII code of the 
digit the routine has worked out is stored in the 
succeeding memory locations by adding the 
offset Y. So the right digit is poked onto the 
screen in the right place. 

LDA &FF then loads the accumulator with 
the contents of F F which are if black letters are 
required and 1 if white are required. The 
colour was worked out before. 

That value is then stored in the appropriate 
location in the colour file. The screen memory 
and the colour memory work entirely inde- 
pendently. What is displayed in any screen 
location is completely independent of what 
colour it is. And the fact that the colour is fixed 
after the digit has been poked onto the screen 
does not matter. As the whole routine takes less 
than a 60 th of a second, there is no chance that 
you will see a digit appearing on the screen and 
then, a fraction of a second later, changing 
colour. Your eyes cannot respond that fast. 
Neither can the TV screen. 

The Y register is loaded with the contents of 
FD again which is then decremented. This is 
the decimal position store which counts from 7 
downwards. 

BPLmeans Branch on PLus result — and zero 
counts as a plus. So BPL DIG sends the 
microprocessor back to the beginning of this 
whole routine if it is not on the second to last 
digit. In other words, it loops back to work out 
the next digit unless the last digit was the tens. 




The units are worked out by a separate routine 
which follows immediately. 

LDA &C5 loads the accumulator with 
whatever's left after the tens have been worked 
out. It is then ored with 48 to give the ASCII. 
An ORA instruction is used rather 
than an ADC— ADd with 
Carry — as you would have 
to clear the carry flag 
before adding. So 
ORing, which is 
not affected by the 
carry flag, saves 
a byte. 

The result is then 
stored on the screen 
in the units position 
and the correct colour 
is added. 

The zero page memory 
location C5 contains 
details of the last key 
that's been pressed — the 
actual number stored here 
depends on the key's position 
on the keyboard rather than the 
corresponding ASCII. 

The contents of C5 are loaded 
into the accumulator and CoM Pared 
with 4 — 4 corresponds to the [FT| key. 
BNE QUIT then jumps over the delay 
routine that follows if the [FT] key has 
not been pressed, and the result of CMP 
&04 is not 0. 

The delay routine consists of a loop 
within a loop. The X register and the 
Y register are both loaded with and 
incremented. And the microprocessor is 
branched back each time the result of the 
incrementation is not zero. Obviously, 
you'll only get a zero result when the 
register had filled up and overflowed. So 
it goes round each loop 256 times — this means 
that the inner Y-register loop is executed 
256 x 256 times. 

Memory location EA31 is the beginning of 
the regular interrupt routine. J M P &EA31 sends 
the microprocessor off to perform the regular 
interrupt routine. If you did not do this, the 
keyboard would freeze up and you would not 
be able to use your Commodore. 

What follows is the decimal data used to 
work out the digits. This data is entered as 
WORds. WOR is not assembly language. It is an 
assembler instruction which tells the as- 
sembler to leave two bytes empty for data. 

You will have noticed that there is no return 
instruction in this program, so you may be 
wondering how it returns to BASIC. On the 
other hand, you may have guessed that the 
return instruction is in the regular interrupt 




routine. Once it has performed its normal 
duties — like scanning the keyboard — it auto- 
matically switches the interrupts back on and 
returns directly to BASIC without returning 
to the routine you've keyed in. Then the 
computer does another 60th of a second's 
worth of BASIC and performs this interrupt 
routine all over again. 



HOW TO USE IT 



To check out your assembler — or any other 
program you want to run a trace on — you must 
first have the trace routine in the computer's 
memory. If your assembler is working you can 
assemble the routine in the normal way. 
Otherwise, key in the hex numbers given using 
your machine code monitor (see page 280). 

You will notice that the trace routine is in the 
protected area after C000, so you don't have to 



alter the boundaries of BASIC. Once you've 
fed it in, SAVE it and NEW to get rid of the 
assembler or monitor. Then feed in the BASIC 
program you want to run the trace on. 

Switch the trace on with SYS491 52, then run 
the program. You can let it run fast through 
parts of the program you are confident work 
properly. Press the [fT] key when you approach 
parts you're having difficulty with. And hit the 
I RUN/STOP | key if you want to freeze the trace. 

Make sure that you have a listing of the 
program beside you when you are doinga trace, 
so that you can see what is happening — 
otherwise the numbers flashing up on the top 
right-hand corner of the screen will mean 
nothing to you. 

If the program calls for you to input 
something on the top line, use the second line 
instead as you won't be able to write over the 
trace's digits. 

To swi tch the trace off press I RUN/STOP I and 
IRESTOREI. 



The Commodore 64 trace program will run on 
the Vic 20 too, with a few minor modifications. 



As the program is basically the same, the 
Commodore 64 explanation also holds for the 
Vic 20 trace. 

The first change that has to be made is to 
relocate the whole program. C000 is not a 
protected area on the Vic. So POKE 52 and 56 
with 28 and use 71 68 as your start address. And 
to run the program you'll have to call SYS71 68. 
So the interrupt vector has been changed to 
the new start address. The second LDA 
should read LDA#&1C. 
Most changes have to do with the screen, 
which is in a different position in the 
Vic. So when you want to look at 
the screen colour you must load the X 
register with the contents of 900F — 
with LDX &900F— instead of the 
contents of D021— LDX &D021. 
The trouble is 900 F on the Vic 
contains the colour of the border 
as well as the screen itself, So 
you have to check whether the 
value there is less than 16, 
which means that the ink 
*\ ^^ colour should be white. 
^ ^Wmyway, the 64's CPX &F1 
^^^ and BNE COL must 

Jfl ^ be replaced with: 

CPX#&10 
BCC COL 

As the screen area is in a different 
position, the 64's STA &040F,Y should 
read STA &1E0F,Y. The colour memory is 
moved too, so STA &D820.Y should read STA 
&960F,Y. Also, STA &0425 and STA 8.D825 
should read STA &1 E14 and STA &9614. 

The Vic's keyboard is organized slightly 
differently and the [FT| does not give 4 but 39. 
Sothe64'sinstructionCMP # &04shouldread 
CMP # &27. And the regular interrupt routine 
begins at EA B F on the Vic, rather than EA31 . So 
JMP &EA31 should read JMP &EABF. 

Otherwise the Vic's trace operates in exactly 
the same way as the 64's. 

Of course, you will have to hand assemble 
the Vic's trace, unless you have bought a 
commercial assembler. But the following is the 
machine code version of the program, so you 
can check your conversion or simply key the 
hex version straight in. 

78 A9 0D 8D 14 03 A9 1C 8D 15 03 58 60 A9 
01 AE 0F 90 E0 1 90 02 A9 00 85 FF A9 00 
85 FE A5 39 85 FB A5 3A 85 FC A0 07 A2 30 
38 A5 FB F9 75 1 C 48 88 A5 FC F9 77 1C 90 
09 85 FC 68 85 FB E8 C8 D0 E8 68 8A 84 FD 
E6 FE A4 FE 99 0F 1 E A5 FF 99 0F 96 A4 FD 
88 10 D1 A5 FB 09 30 8D 14 1E A5 FF 8D 14 
96 A5 C5 C9 27 D0 0A A2 00 A0 00 C8 D0 FD 
E8 D0 F8 4C BF EA 0A 00 64 00 E8 03 10 27 
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Do you have trouble working out 
how many inches there are in a 
metre? Or how many pints in a litre? 
If so, then the INPUT conversion 
program has all the answers 

Working out how many litres of petrol yo* car 
can hold, or how to buy metric tiles tJpt are 
priced by the square yard can be a diffaElt task 
unless you happen to know the various metric 
conversion factors by heart. Thermograms 
below are an easy way to convertJnetric units 
into Imperial, and Imperial uniJI into metric, 
and work for any of the standay units you are 
likely to come across. 




V 1 HIGH MEASJREMENT? 



II the common measurements are included in 
:he program, along with some you'll need less 
often— such as millimetres of mercury, a 
measure of pressure (abbreviated to mmHG in 
the program). 

First, type in the program and RUN it. You 
are shown a menu of options. The first option 
(Quit)a!lows you to return to BASIC, while all 
the others refer to the type of units you want to 
convert. The choices available are: length, 
area, volume, weight, pressure, and tempera- 
Ee. Strictly speaking, the 'weight' option 
Igives measurements of mass, but conforms to 
" popular usage. 

To the left of each option is a number. To 



select a popular option just press the key with 
the relevant number. For example, to convert a 
unit of length (option 1), press the '1' key. It 
does not matter at this point whether you want 
to change a metric unit into an Imperial one, or 
the other way round: that comes later. 



WHICH UNITS: 



Once you have chosen the type of measure- 
ment you want to change, and pressed the 
relevant key, the computer PR! NTs a second 
menu. This allows you to choose the units you 
want to convert. 

So, if you pressed the ' 1 ' key to convert units 
of length you now get a menu which lists all the 
possible units (inches, feet, millimetres, centi- 
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CONVERTING METRIC TO 

SERIAL MEASUREMENTS 

AND VICE VERSA 

HOW TO USE THE 

PROGRAM 



I CONVERSIONS FOR LENGTH, AREA, 
WEIGHT, VOLUME, PRESSURE 



AND TEMPERATURE 



CONVERTING MIXED UNITS 



AND FRACTIONS 



metres, and so on). If you want to convert 
inches into metric units, press the 1 key 
again — the number beside the 'inches' on the 
screen. Now enter the number of inches and hit 



PRINTING THE ANSWERS 



The computer works out the conversions and 
PR I NTs the result in all the units of the other set 
(metric or Imperial) . S o i f you typed in a value 
in inches, you would be given the equivalent in 
millimetres, centimetres, metres, and 
kilometres. 

After you have been shown the converted 
values, the computer waits for you to press a 
key before continuing. If you press the | ENTER | 



or IRETURN | key, you are returned to the main 
menu to choose another option. If you press 
any other key, you are sent to the second 
menu — the computer assumes you want the 
same type of measurement again. 

You can stop the program if you want by 
returning to the main menu, and pressing '0' 
for the QUIT option. 



MIXED UNITS 



Sometimes you may want to convert a value of 
an Imperial measure which is a mixture of 
units. For example, you might want to convert 
2 feet 6 inches into metric units . You can do one ' 
of two things when this occurs. 

The program accepts numbers which are 



not whole numbers: so, with the example 
above, if you know how many inches there are 
in a foot, you could work out a decimal fraction 
and tell the computer to convert that. With six 
inches, of course, there is nothing to worry 
about, six inches is exactly half a foot. So you 
would INPUT 2.5 feet. 

If the fractions are difficult to work out you 
should use the second method. This is to 
convert the number in two stages. First, 
convert the feet into metric, and then convert 
the inches. All you do after that is add up the 
metric equivalent of both conversions (re- 
member to add up the values of the same metric 
units). 

If you have a metric fraction to convert, you 



Do Continental tiles cover the same 
areas as British ones? If you're not 
sure, the INPUT conversion program 
will work out the calculations for you 
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can do the same again. But since metric units 
are conveniently scaled so that each consecu- 
tive unit is ten times larger, (or smaller) than 
the last, the problem is much easier to solve. 



5 POKE 23658,8 

10 DIM L{8): DIM L$(8,12): DIM A(7): DIM 

A$(7,9): DIM V(7): DIM V$(7,12): DIM 

M(6): DIM M${6,9): DIM P(5): DIM 

P$(5,11) 
20 FOR K = 1 TO 8: READ L(K),L$(K): NEXT K 
30 DATA 1,"INCHES",12,"FEET",36, 

"YARDS",63360,"MILES", 

,03937,"MILLIMETRES", 

.3937,"CENTIMETRES",39.37, 

"METRES",39370,"KILOMETRES" 
40 FOR K = 1 TO 7: READ A(K),A$(K): NEXTK 
50 DATA 1,"SQ INCHES",144,"SQ 

FEET",6272640,"ACRES" 5 4.0145E9, 

"SQ MILES",.155,"SQ CMS",1550, 

"SQ METRES",1 .55E7,"HECTARES" 
60 FOR K = 1 TO 7: READ V(K),V${K): NEXTK 
70 DATA 1, "CUBIC INCH ES",1 728, 

"CUBIC FEET",34.67, "PINTS", 

277.36,"GALLONS",.061 02,"CC'S", 

61.024,"LITRES",61024,"CUBIC 

METRES" 
80 FOR K = 1 TO 6: READ M(K),M$(K): 

NEXTK 
90 DATA 1,"0UNCES",16,"P0UNDS", 

35840,"TONS",.03527,"GRAMS", 

35.27,"KILOGRAMS",35270,"TONNES" 
100 FOR K = 1 TO 5: READ P(K),P$(K): 

NEXTK 
110 DATA 1,"PSI",51.73,"mmHG",6895, 

"N/SQ METRE",.0681, 

"ATMOSPHERES",68.95,"MILLIBARS" 
120 CLS : PRINT INVERSE 1;"TAB 6;"WHICH 

CATEGORY (0-6) ?";TAB 31;"D" 
130 PRINT AT 6,8;"0:- QUIT 

PROGRAM";AT8,8;"1:- LENGTH"; 

AT10,8;"2:- AREA";AT 12,8; 

"3:- VOLUME";AT14,8;"4:- WEIGHT"; 

AT16,8;"5:~ PRESSURE";AT 18,8; 

"6:- TEMPERATURE" 
140 LETZ$ = INKEY$: IFZ$<"0" OR 

Z$>"6" THEN GOTO 140 
150 IF Z$ = "0"THEN CLS : STOP 
160 CLS : GOSUB 1 000 + (VAL Z$ - 1 )*500 
170 GOTO 120 
1000 PRINT INVERSE 1;AT 

0,1 2;" □ LENGTH D ": PRINT AT 

2,6;"SELECT ORIGINAL UNITS": PRINT : 

FOR K = 1 TO 8: PRINT 'TAB 

10;K;":-";L$(K): NEXTK 
1010 LET B$ = INKEY$: IF B$<"1" OR 

B$>"8" THEN GOTO 1010 
1020 LET B = VAL B$: INPUT "INPUT 

NUMBER OFD";(L$(B)),VL 
1040 CLS: PRINT AT 2,4;VL;"D"; 



L$(B);"D EQUALS" 
1050 IF B>4THEN GOTO 1080 
1060 FOR K = 1 TO 4: PRINT AT K*2 + 4,3; 

VL*L(B)/L{K + 4);TAB 18;L$(K + 4): 

NEXTK 
1070 GOTO 1090 
1 080 FOR K = 1 TO 4: PRINT AT K'2 + 4,3; 

VL'L(B)/L(K);TAB18;L$(K): NEXTK 
1090 LETZ$ = INKEY$: IF Z$ = "" THEN 

GOTO 1090 
1100 IF Z$ = CHR$ 13 THEN RETURN 
1110 CLS: GOTO 1000 
1500 PRINT INVERSE 1;AT 0,13; 

"□AREAD": PRINT AT 2,6;"SELECT 

ORIGINAL UNITS": PRINT : FOR K = 1 TO 

7: PRINT TAB 10;K;":- ";A$(K): NEXT K 
1510 LET B$ = INKEY$: IF B$<"1" OR 

B$>"7" THEN GOTO 1510 
1520 LET B = VAL B$: INPUT "INPUT 

NUMBER OFn";(A$(B)),VL 
1540 CLS: PRINT AT 2,4;VL;"D"; 

A$(B);"D EQUALS" 
1550 IF B>4THEN GOTO 1580 
1 560 FOR K = 1 TO 3: PRINT AT K"2 + 4,3; 

VL*A(B)/A(K + 4);TAB 18;A$(K + 4): 

NEXTK 
1570 GOTO 1590 
1 580 FOR K = 1 TO 4: PRINT AT K'2 + 4,3; 

VL*A(B)/A(K);TAB 18;A$(K): NEXT K 
1590 LET Z$ = INKEY$: IF Z$ = "" THEN 

GOTO 1590 
1600 IF Z$ = CHR$ 13 THEN RETURN 
1610 CLS: GOTO 1500 
2000 PRINT INVERSE 1;AT 0,12; 

"DVOLUMED": PRINT AT 2,6; 

"SELECT ORIGINAL UNITS": PRINT : FOR 

K = 1 TO 7: PRINT TAB 

10;K;":- ";V$(K): NEXT K 
2010 LET BS = INKEY$: IFB$<"1"0R 

B$>"7" THEN GOTO 2010 
2020 LET B = VAL B$: INPUT "INPUT 

NUMBER OFD";(V$(B)),VL 
2040 CLS: PRINT AT 2,4;VL;"D"; 

V$(B);"D EQUALS" 
2050 IF B>4THEN GOTO 2080 
2060 FOR K = 1 TO 3: PRINT AT K"2 + 4,3; 

VL"V(B)/V(K + 4);TAB18; 

V$(K + 4):NEXTK 
2070 GOTO 2090 
2080 FOR K = 1 TO 4: PRINT AT K*2 + 4,3; 

VL*V(B)/V(K);TAB 18;V$(K): 

NEXTK 
2090 LET Z$ = INKEY$: IF Z$ = "" THEN 

GOTO 2090 
2100 IF Z$ = CHR$ 13 THEN RETURN 
2110 CLS: GOTO 2000 
2500 PRINT INVERSE 1;AT 0,13; 

"DWEIGHTD": PRINT AT 2,6; 

"SELECT ORIGINAL UNITS": PRINT : FOR 

K = 1 TO 6: PRINT TAB 

10;K;":-";M$(K): NEXTK 



2510 LET B$ = INKEY$: IF B$<"1" OR 

B$>"6" THEN GOTO 2510 
2520 LET B = VAL B$: INPUT "INPUT 

NUMBER OFD";(M$(B)),VL 
2540 CLS: PRINT AT 2,4;VL;"D"; 

M$(B);"D EQUALS" 
2550 IF B>3 THEN GOTO 2580 
2560 FOR K = 1 TO 3: PRINT AT K*2 + 4,3; 

VL*M(B)/M(K + 3);TAB18; 

M$(K + 3):NEXTK 
2570 GOTO 2590 
2580 FOR K = 1 TO 3: PRINT AT K"2 + 4,3; 

VL*M(B)/M(K);TAB18;M$(K): 

NEXT K 
2590 LET Z$ = INKEY$: IF Z$ = "" THEN 

GOTO 2590 
2600 IFZ$ = CHR$ 13 THEN RETURN 
2610 CLS: GOTO 2500 
3000 PRINT INVERSE 1;AT 0,11; 

"□ PRESSURED": PRINT AT 2,6; 

"SELECT ORIGINAL UNITS": PRINT : FOR 

K = 1 TO 5: PRINT TAB 

10;K;":- ";P${K): NEXT K 
3010 LET B$ = INKEY$: IF B$<"1" OR 

B$>"5" THEN GOTO 3010 
3020 LET B = VAL B$: INPUT "INPUT 

NUMBER OFD";(P$(B)),VL 
3040 CLS : PRINT AT 2,4;VL;"D"; 

P$(B);"D EQUALS" 
3050 LETT = 0: FOR K = 1 TO 5: IF K = B 

THEN GOTO 3070 
3060 PRINT AT K*2 + 4,3;VL*P(K)/ 

P(B);TAB18;P$(K):LETT=T + 1 
3070 NEXT K 
3080 LET Z$ = INKEY$; IF Z$ = "" THEN 

GOTO 3080 
3090 IFZ$ = CHR$ 13 THEN RETURN 
3100 CLS: GOTO 3000 
3500 PRINT INVERSE 1;AT 0,9; 

"□TEMPERATURED": PRINT AT 3,11; 

"CONVERT:-": PRINT "'□□□ 

CENTIGRADE TO FAHRENHEIT 

(C)D DOR FAHRENHEIT TO 

CENTIGRADE (F)" 
3510 LET B$ = INKEY$: IF B$o"C" AND 

B$o"F" THEN GOTO 3510 
3520 IF B$ = "C" THEN GOTO 3560 
3530 INPUT "INPUT DEGREES 

FAHRENHEIT",VL 
3540 CLS: PRINT AT 1,2;VL; 

"DDEGREES FAHRENHEIT EQUALS" 
3550 PRINT TAB 2;(VL-32)'5/9; 

"DDEGREES CENTIGRADE": GOTO 3590 
3560 INPUT "INPUT DEGREES 

CENTIGRADE",VL 
3570 CLS: PRINT AT 1,2;VL; 

"□DEGREES CENTIGRADE EQUALS" 
3580 PRINT TAB 2;32 + VL*9/5; 

"□DEGREES FAHRENHEIT" 
3590 PAUSE 0: LET Z$ = INKEY$: IFZ$ = "" 

THEN GOTO 3590 
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3600 IF Z$ = CHR$ 13 THEN RETURN 
3610 CLS: GOTO 3500 
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The Commodore program works on both the 
Commodore 64 and the Vic 20 — but the 
program needs more than 3|K of memory to 
RUN so the Vic needs a memory expansion 
pack. 

Since the program works on both Commo- 
dore computers, the Commodore 64 is for- 
matted to use only the left-hand part of the 
display: only the first 22 characters in each line 
on the screen are used, as the Vic only has 22 
characters in its lines. 

10 DIM L(7),L$(7),A(6),A$(6),V(6), 

V$(6},M(5),M$(5),P(4},P$(4) 
20 FOR K = TO 7:READ L(K),L$(K): NEXT K 
30 DATA 1,INCHES,12,FEET,36,YARDS, 

63360,MILES 3 .03937, 

MILLIMETRES,.3937 
35 DATA CENTIMETRES,39.37,METRES, 

39370,KILOMETRES 
40 FOR K = TO 6:READ A(K),A$(K):NEXT K 
50 DATA 1,SQ INCHES,144,SQ FEET, 



6272640,ACRES,4.0145E9,SO 

MILES,. 155 
55 DATA SQ CMS,1550,SQ METRES, 

1.55E7,HECTARES 
60FORK = 0TO6:READV(K),V$(K): 

NEXT K 
70 DATA 1,CUBIC INCHES,1728,CUBIC 

FEET,34.67,PINTS,277.36, 

GALLONS,.06102 
75 DATA CC'S,61.024,LITRES,61024, 

CUBIC METRES 
80 FOR K = TO 5:READ M(K),M${K): 

NEXTK 
90 DATA 1,OUNCES,16,POUNDS,35840, 

TONS,.03527,GRAMS,35.27, 

KILOGRAMS 
95 DATA 35270JONNES 
100 FOR K = 0TO 4:READ P(K),P${K): 

NEXTK 
110 DATA 1,PSI,51.73,MMHG,6895,N/SQ 

METRE,.0681, ATMOSPHERES 
115 DATA 68.95,MILUBARS 
120 PRINT "□WHICH CATEGORY (0-5)?" 
130 PRINT"H0- QUIT PROGRAM": 

PRINT"H1- LENGTH":PRINT 

"M2- AREA":PRINT"M3- VOLUME" 



135PRINT"H4- WEIGHT":PRINT 

"H5- PRESSURE":PRINT 

"S6- TEMPERATURE" 
140 GET A$:IF A$<"0" OR A$>"6" THEN 

140 
150 IF A$ = ' [ 0" THEN PRINT "□":END 
160 PRINT "□":0N VAL(A$) GOSUB 1000, 

1500,2000,2500,3000,3500 
170 GOTO 120 
1000 PRINT TAB(7);".a LENGTH": 

PRINT "HSELECT ORIGINAL UNITS":F0R 

K = 0TO7 
1005 PRINT "H";K + 1;"-D";L$(K): 

NEXTK 
1010 GET B$:IF B$<"1" OR B$>"8" 

THEN 1010 
1020 B = VAL(B$)-1:PRINT"QINPUT 

NUMBER OFD":PRINTL$(B); 
1030 INPUT VI 
1040 PRINT "□";VL:PRINT L$(B); 

"DEQUALSH" 
1050 IF B>3 THEN 1080 
1060 FOR K = TO 3:PRINT "H";VL'L 

(B)/L(K + 4);TAB{23);"a"; 
L$(K + 4):NEXTK 
1070 GOTO 1090 
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1080 FOR K = TO 3:PRINT "H";VL*L 

(B)/L(K};TAB(23)-a"; 

L$(K):NEXTK 
1 090 GET A$:IF A$ = "" THEN 1090 
1100 IF A$ = CHR$(13) THEN RETURN 
1110 PRINT "□":GOTO1000 
1500 PRINT TAB(7);"aAREA":PR1NT 

"^SELECT ORIGINAL UNITS": 

FOR K = 0TO 6 
1505 PRINT "H";K + 1;"- D";A$(K):NEXT 

K 
1510 GET B$:IF B$<"1" OR B$>"7" THEN 

1510 
1520 B = VAL(B$)-1:PRINT"QINPUT THE 

NUMBER OFn":PRINTA${B); 
1530 INPUT VL 
1540 PRINT "□";VL:PRINTAS(B); 

"DEOUALSH" 
1550 IF B>3 THEN 1580 
1560 FOR K = TO 2:PRINT "S";VL'A 

(B)/A(K + 4);TAB(23);"a"; 

A$(K + 4):NEXTK 
1570 GOTO 1590 
1580 FOR K = TO 3:PRINT "H";VL"A 

(B)/A(K);TAB(23);"a"; 

A$(K):NEXTK 
1590 GET A$:IF A$ = "" THEN 1590 
1600 IF A$ = CHR$(13} THEN RETURN 
1605 PRINT "□":GOT0 1500 
2000 PRINT TAB(7);".aV0LUME":PRINT 

"HSELECT ORIGINAL UNITS": FOR 

K = 0TO6 
2005 PRINT "H";K + 1;"- D";V$(K}: 

NEXTK 
2010 GET B$:IF B$<"1" OR B$>"7" 

THEN 2010 
2020 B = VAL(3$} - 1 :PRINT "QINPUT THE 

NUMBER OF D":PRINT V$(B>; 
2030 INPUT VL 
2040 PRINT "□";VL:PRINTV$(B); 

"DEQUALSS" 
2050 IF B>3 THEN 2080 
2060 FORK = 0TO2:PRINT"H";VL , V 

(B)/V(K + 4};TAB(23);".a"; 

V$(K+.4):NEXTK 
2070 GOTO 2090 
2080 FOR K = TO 3:PRINT "H";VL*V 

(B)/V(K);TAB(23);"a";V$(K): 

NEXTK 
2090 GET A$:IF A$ = "" THEN 2090 
2100 IF A$ = CHR$(13) THEN RETURN 
2105 PRINT "□":GOTO 2000 
2500 PRINT TAB(7);"aWEIGHT":PRINT 

"HSELECT ORIGINAL UNITS": 

FOR K = 0TO5 
2505 PRINT "H";K + 1;"- D";M$(K): 

NEXTK 
2510 GET B$:1F B$ < "1 " OR B$ > "6" THEN 

2510 
■ ~. 2520 B = VAL(B$)-1:PRINT"niNPUTTHE 

NUMBER OFD":PRINTM$(B); 




2530 INPUT VL 

2540 PRINT "□";VL:PiRINT M$(B); 

"DEQUALSM" 
2550 IF B>2 THEN 2580 
2560FORK = 0TO2:PR!NT"M";VL'M 

(B}/M{K + 3);TAB(23);"a"; 

M$(K + 3):NEXTK 
2570 GOTO 2590 
2580 FOR K = TO 3: PRINT "M";VL*M 

(B)/M(K);TAB(23);"d";M$(K}: 

NEXTK 
2590 GET A$:IF A$ = "" THEN 2590 
2600 IF A$ = CHR${13) THEN RETURN 
2605 PRINT "□":GOTO 2500 
3000 PRINT TAB(7);"aPRESSURE": 

PRINT "HSELECT ORIGINAL UNITS":FOR 

K = 0TO4 
3005 PRINT "M'NK + 1;"- D";P$(K): 

NEXTK 
3010 GET B$:IF B$<"1" OR B$>"5" 



THEN 3010 
3020 B = VAL(B$)-1:PRINT"niNPUT THE 

NUMBER OFD":PRINTP$(B); 
3030 INPUT VL 
3040 PRINT "□";VL:PRINTP$(B); 

"D EQUALSH" 
3050 T = 0:FOR K = TO 4:IF K = B THEN 

3070 
3060 PRINT "H";VL*P(K)/P(B); 

TABf23};"a";P$(K):T = T + 1 
3070 NEXT K 

3080 GET A$:IFA$ = "" THEN 3080 
3090 IF A$ = CHR$(13) THEN RETURN 
3100 PRINT "□":GOTO 3000 
3500 PRINT "□";TAB(5); 

u aTEMPERATURE":PRINT 

"HCONVERT -" 

3505 PRINT "^CENTIGRADE TO": 
PRINT "FAHRENHEIT (C)" 

3506 PRINT "HFAHRENHEIT TO": 
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PRINT'CENTIGRADE (F)" 
3510 GET B$:IFB$o"C" AND 

B$o"F" THEN 3510 
3520 IF B$ = "C" THEN 3560 
3530 PRINT "HINPUT DEGREES":INPUT 

"FAHRENHEIT";VL 
3540 PRINT "□";VL;"DEGREES":PRINT 

"FAHRENHEIT EQUALS" 
3550 PRINT "H";(VL-32)*5/9:PRINT 

"DEGREES CENTIGRADE": 

GOTO 3590 
3560 PRINT "BINPUT DEGREES":INPUT 

"CENTIGRADE";VL 
3570 PRINT "□";VL;"DEGREES":PRINT 

"CENTIGRADE EQUALS" 
3580 PRINT "H";32 + VL*9/5:PRINT 

"DEGREES FAHRENHEIT" 
3590 GET A$:IFA$ = "" THEN 3590 
3600 IF A$ = CHR$(13) THEN RETURN 
3610 PRINT "□":GOTO 3500 



5 M0DE6 
10DIML(7),L$(7),A(6),A${6),V(6), 

V$(6),M(5),M$(5),P(4),P$(4) 
20 FORK = 0TO7:;READ L(K),L${K):NEXT 
30 DATA 1, INCHES/I 2,FEET,36,YARDS, 

63360,MILES,.03937, 

MILUMETRES,.3937,CENTIMETRES, 

39,37,METRES,39370,KILOMETRES 
40 FORK = 0TO6: READ A(K),A$(K):NEXT 
50 DATA 1,SQ INCHES,144,SQ FEET, 

6272640,ACRES,4.0145E9,SQ 

MILES,.155,SQ CMS, 1550,SQ 

METRES,1.55E7,HECTARES 
60 FORK = 0TO6:READV{K),V$(K):NEXT 
70 DATA 1,CUBIC INCHES,1728,CUBIC 

FEET,34.67,PINTS,277.36, 

GALLONS,.06102,CC'S,61.024, 

UTRES,61024,CUBIC METRES 
80 FORK = 0TO5;READM(K),M$(K):NEXT 
90 DATA 1,OUiNCES,16,POUNDS,35840, 

TONS,.03527,GRAMS,35.27,KILOGRAMS 

,35270,TONNES 
1 00 FORK = 0TO4:READP(K),P$(K):NEXT 
110 DATA 1,PSU51 .7%mmHG 3 €896^ 

N/SQMETRE',.0681, 

ATMOSPHERES,68.95,MILUBARS 
120 CLS:PRINT"WHICH CATEGORY (0-6) ?" 
130 PRINTTAB(10,6)"0) QUIT PROGRAM" 

TAB(1 0,8) "1 ) D LENGTH"TAB(1 0,1 0) 

"2)DAREA"TAB(10,12) 

"3)DVOLUME"TAB(10,14) 

"4)DWEIGHT"TAB(10,16) 

"5)DPRESSURE"TAB(10,18) 

"6) □TEMPERATURE" 

140 A$ = GET$:IF A$<"0" OR A$>"6 r 

THEN 140 
150 IF A$ = "0" THEN CLS:END 
160 CLS:ON VAL(A$) GOSUB 1000,1500, 

2000,2500,3000,3500 
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170 GOTO 120 

1000 PRINT"'LENGTH"""SELECT ORIGINAL 

UNITS":FOR K = TO 7:PRIIMT 

TAB(10,6 + 2 , K);K + 1;")D";L$(K): 

NEXT 
1010 B$ = GET$:IF B$<"1" OR B$>"8" 

THEN 1010 
1 020 B = VAL(B$) - 1 :CLS:PRINT"INPUT 

NUMBER OFD",L$(B) 
1030 INPUT VL 
1040CLS:PRINT'"VL;"D"L$(B); 

"D EQUALS" 
1050 IF B>3 THEN 1080 
1060 FORK = 0TO3:PRINTTAB(5,10 + K*2) 

VL"L{B)/L(K+4)TAB{25 3 10 + K*2) 

L$(K + 4):NEXT 
1070 GOTO 1090 
1080 FORK = 0TO3:PRINTTAB(5,10 + K*2) 

VL*L(B)/L(K)TAB(25,10 + K"2) 

L$(K):NEXT 
1090A$ = GET$ 
1100 IF A$ = CHR$(13) THEN RETURN 

ELSECLS:GOTO 1000 
1500 PRINT'"AREA"""SELECT ORIGINAL 

UNITS":FORK = 0TO6:PRINT 

TAB(10 J 6 + 2*K);K + 1;")D";A$(K): 

NEXT 
1510 B$ = GET$:IF B$<"1" OR B$>"7" 

THEN 1510 
1520 B = VAL(B$)-1:CLS:PRINT"D INPUT 

THE NUMBER OFn";A$(B) 
1530 IN PUT VL 
1540CLS:PRINT'"VL;"D"A$(B); 

"□ EQUALS" 
1550 IF B>3 THEN 1580 
1560 FOR K = 0TO2:PRINTTAB(5,10 + K*2); 

VL*A(B)/A(K + 4)TAB(25,10 + K*2) 

A$(K + 4):NEXT 
1570 GOTO 1590 
1580 FOR K = TO 3:PRINTTAB(5,10 + 

K'2),VL"A(B)/A(K)TAB(25, 

10 + K'2)A$(K):NEXT 
1590 A$ = GETS 
1600 IF A$ = CHR$(13) THEN RETURN 

ELSECLS:GOTO 1500 
2000 PRINT"'VOLUME"""SELECT ORIGINAL 

UNITS":FORK = 0TO6:PRINT 

TAB(1 0,6 + 2"K),K + 1 ;") D ";V$(K): 

NEXT 
2010 B$ = GET$:IF B$<"1"0RB$>"7" 

THEN 2010 
2020B=VAL(B$)-1:CLS:PRINT"DINPUT 

NUMBER OFD";V$(B) 
2030 INPUT VL 
2040 CLS:PRINT'"VL;"D"V${B); 

"□ EQUALS" 
2050 IF B>3 THEN 2080 
2060 FORK = 0TO2:PRINnAB(5,10 + K*2); 

VL*V(B)/V(K+4)TAB(25,10 + K*2) 

V$(K + 4):NEXT 
2070 GOTO 2090 



2080FORK = 0TO3:PRINTTAB(5,10 + K"2); 

VL*V(B)/V(K)TAB{25,10 + K*2) 

V$(K):NEXT 
2090 A$ = GETS 
2100 IF A$ = CHR$(13) THEN RETURN 

ELSECLS:GOTO 2000 
2500 PRINT'"WEIGHT"""SELECT ORIGINAL 

UNITS": FOR K = 0TO 5:PRINTTAB(10,6 

+ 2 , K);K+1;")D";M$(K):NEXT 
2510 B$ = GET$:IF B$<"1" OR B$>"6" 

THEN 2510 
2520 B=VAL(B$)-1:CLS:PRINT"D INPUT 

NUMBER OFD";M$(B) 
2530 INPUT VL 
2540 CLS:PRINT"'VL;"D"M$(B), 

"□ EQUALS" 
2550 IF B>2 THEN 2580 
2560 FOR K = 0TO 2:PR!NTTAB(5,10 + 

K'2);VL-M(B)/M(K + 3}TAB(25, 

10 + K"2)M$(K + 3):NEXT 
2570 GOTO 2590 
2580 FOR K = TO 2:PRINTTAB(5,10 + 

K*2);VL"M(B)/M(K)TAB(25, 

10 + K'2)M$(K):NEXT 
2590 AS = GET$ 
2600 IF A$ = CHR$(13) THEN RETURN 

ELSECLS:GOTO 2500 
3000 PRINT'"PRESSURE"""SELECT 

ORIGINAL UNITS":FOR K = TO 4:PRINT 

TAB{10,6 + 2-K);K + 1i")n"; 

P${K):NEXT 
3010 B$ = GET$:IF B$<"1" OR B$>"5" 

THEN 3010 
3020B = VAL(B$)-1:CLS:PRINT"DINPUT 

NUMBER OFD";P$(B) 
3030 INPUT VL 
3040CLS:PRINT"'VL,"D"P$(B), 

"□EQUALS" 
3050 T = 0:FOR K = TO 4:IF K=B THEN 

3070 
3060 PRINTTAB(5,10 + K*2);VL*P{K)/ 

P{B)TAB(25,10 + K"2)P$(K) 
3070 NEXT 
3080 AS = GETS 
3100 IF A$ = CHR$(13) THEN RETURN 

ELSECLS:GOTO 3000 
3500PRINT"'TEMPERATURE"""CONVERT 

CENTIGRADE TO FAHRENHEIT (C) OR 

FAHRENHEIT TO CENTIGRADE (F)" 
3510 B$ = GET$:1F B$ = "C"THEN 3560 
3520 IF B$o"F" THEN 3510 
3530 INPUT'INPUT DEGREES 

FAHRENHEITD",VL 
3540 CLS:PRINT';VL;"D DEGREES 

FAHRENHEIT EQUALS" 
3550 PRINT;{VL-32)*5/9;"D DEGREES 

CENTIGRADE":GOTO 3590 
3560 INPUT'INPUT DEGREES 

CENTIGRADE D",VL 
3570 CLS:PRINT';VL;"D DEGREES 

CENTIGRADE EQUALS" 



3580 PRINT;32 + VL*9/5;"D DEGREES 

FAHRENHEIT" 
3590 AS = GETS 
3600 IF A$ = CHR$(13) THEN RETURN ELSE 

CLS:GOTO 3500 
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10DIML(7),L$(7),A{6),A$(6),V(6), 

V$(6),M(5),M$(5),P(4),P$(4) 
20 FORK = 0TO7:READ L(K),L$(K):NEXT 
30 DATA 1,INCHES,12,FEET,36,YARDS, 

63360,MILES V 03937, 

MILLIMETRES,.3937, 

CENTIMETRES,39.37,METRES, 

39370,KILOMETRES 
40 FORK = 0TO6:READA(K),A$(K):NEXT 
50 DATA 1,SQ INCHES ; 144,SQ FEET, 

6272640,ACRES,4.0145E9,SQ 

MILES,.! 55,SQCMS 3 1550,SQ 

METRES,! .55E7,HECTARES 
60FORK = 0TO6:READV(K),V$ 

(K):NEXT 
70 DATA 1,CUBIC INCHES,1728,CUBIC 

FEET,34.67,PINTS,277.36, 

GALLONS,.06102,CC'S,61.024, 

UTRES,61024,CUB!C METRES 
80 FORK = 0TQ5:READM(K),M$(K):NEXT 
90 DATA 1,OUNCES,16,POUNDS,35840, 

TONS,.03527,GRAMS,35.27, 

KILOGRAMS,35270JONNES 
1 00 FORK = 0TO4:READP(K),P$(K):NEXT 
110 DATA 1,PSI,51.73,mmHG,6895,N/SQ 

METRE,. 0681 3ATMOSPHERES, 

68.95,MILUBARS 
120 CLS:PRINT"D □ DWHICH CATEGORY 

(0-6) ?" 
130 PRINT@72,"0- DQUIT PROGRAM": 

PRINT@136,"1-D LENGTH": 

PRINT@200,"2-DAREA": 

PRINT@264,"3-D VOLUME": 

PRINT@328,"4-DWEIGHT": 

PRINT@392,"5-D PRESSURE": 

PRINT@456,"6- DTEMPERATURE" 
1 40 AS = I N KEYS: I F AS < "0" R AS > "6" 

THEN 140 
150IFA$ = "0"THENCLS:END 
160 CLS:0N VAL(A$) G0SUB1 000,1 500, 

2000,2500,3000,3500 
170 GOTO 120 
1 000 PRINT@1 2,"length":PRINT@37, 

"SELECT ORIGINAL UN!TS":FOR 

K = 0TO7:PR1NT@136 + 32 , K,K + 1; 

"-D";L$(K}:NEXT 
1010 B$ = INKEY$:IF B$<"1" OR B$>"8" 

THEN 1010 
1020 B =VAL(B$) - 1 :CLS:PRINT" DINPUT 

NUMBER OFD";L$(B) 
1030 INPUT VL 
1040CLS:PRINTVL;L$(B); 

"□EQUALSD" 
1050 IF B>3 THEN 1080 
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1060 FORK = 0TO3:PRINT@96 + K*64, 

VL-L(B)/L(K + 4),L$(K + 4):NEXT 
1070 GOTO 1090 
1080 FORK = 0TO3:PRINT@96 + K'64, 

VL"L(B)/L(K),L$(K):NEXT 
1 090 A$ = INKEY$:IF A$ = "" THEN 1 090 
1100 IF A$ = CHR$(13) THEN RETURN 

ELSECLS:GOTO1000 
1500 PRINT@13,"area":PRINT@37, 

"SELECT ORIGINAL UNITS":FOR 

K = 0TO6:PRINT@136 + 32*K,K + 1;"- 

D";A$(K):NEXT 
1510 B$ = INKEY$:IF B$<"1"0RB$>"7" 

THEN 1510 
1520B = VAL(B$)-1:CLS;PRINT"GINPUT 

THE NUMBER OFD";A$(B) 
1530 INPUT VL 

1540 CLS:PRINTVL;A$(B);"D EQUALS" 
1550 IF B>3 THEN 1580 
1560 FORK = 0TO2:PRINT@96 + K*64, 

VL"A(B)/A(K + 4),A$(K + 4):NEXT 
1570 GOTO 1590 
1580 FORK = 0TO3:PRINT@96 + K*64,VL* 

A(B)/A(K),A$(K):NEXT 
1590 A$ = INKEY$:IF A$ = "" THEN 1590 
1600 IF A$ = CHR$(13) THEN RETURN 

ELSECLS:GOTO 1500 
2000 PRINT@1 2,"volume":PRINT@37, 

"SELECT ORIGINAL UNITS":FOR 

K = 0TO6:PRINT@136 + 32"K,K + 1; 

"-D";V$(K):NEXT 
2010 B$ = INKEY$:IFB$<"1"0RB$>"7" 

THEN 2010 
2020 B = VAL( B$) - 1 :CLS:PRINT" □ INPUT 

NUMBER OFD";V$(B) 
2030 INPUT VL 

2040 CLS:PRINTVL;V$(B);"DEQUALSD" 
2050 IF B>3 THEN 2080 
2060 FORK = 0TO2:PRINT@96 + K , 64, 

VL*V(B)/V(K + 4),V$(K + 4):NEXT 
2070 GOTO2090 
2080 FORK = 0TO3:PRINT@96 + K , 64, 

VL*V(B)/V(K),V$(K):NEXT 
2090 A$ = INKEY$:IF A$ = "" THEN 2090 
2100 IFA$ = CHR$(13)THEN RETURN 

ELSECLS:GOTO 2000 
2500PRINT@13,"weight":PRINT@37, 

"SELECT ORIGINAL UNITS":FOR 

K = 0TO5:PRINT@136 + 32*K,K + 1; 

"-□";M$(K}:NEXT 
2510 B$ = INKEY$:IF B$<"1"0RB$>"6" 

THEN 2510 
2520 B = VAL( B$) - 1 :CLS:PRINT" n INPUT 

NUMBER OFD";M$(B) 
2530 INPUT VL 

2540 CLS:PRINTVL;M$(B);"D EQUALS" 
2550 IF B>2 THEN 2580 
2560 FQRK = 0TO2:PRINT@96 + K"64, 

VL*M(B)/M(K + 3},M${K + 3):NEXT 
2570 GOTO 2590 
2580 FORK = 0TO2:PRINT@96 + K'64, 



VL*M(B)/M(K),M$(K):NEXT 
2590 A$ = INKEY$:I:F A$ = "" TH EN 2590 
2600 IF A$ = CHR$(13) THEN RETURN 

ELSECLS:GOTO2500 
3000PRINT@11,"pressure":PRINT@37, 

"SELECT ORIGINAL UNITS":FOR 

K = 0TO4:PRINT@1 36 + 32*K,K + 1 ; 

"-D";P$(K):NEXT 
3010 B$=INKEY$:IF B$<"1"0RB$>"5" 

THEN 3010 
3020B = VAL(B$)-1:CLS:PRINT"DINPUT 

NUMBER OFD";P$(B) 
3030 INPUT VL 

3040 CLS:PRINTVL;P$(B);"DEQUALS" 
3050 T = 0:FORK = 0TO4:IF K = B THEN 3070 
3060 PRINT@96 + T*64,VL*P(K)/P(B), 

P$(K):T = T+1 
3070 NEXT 

3080 A$ = INKEY$:IF A$ = "" THEN 3080 
3090 IF A$ = CHR$(13) THEN RETURN 

ELSECLS:GOTO3000 
3500 CLS:PRINT@10,"temperature": 

PRINT@37/'CONVERT -": 



PRINT" □ CENTIGRADE TO FAHRENHEIT 

(C) OR FAHRENHEIT TO CENTIGRADE 

(F)" 
3510 B$ = INKEY$:IFB$o"C" AND 

B$o"F" THEN 3510 
3520 IF B$ = "C" THEN 3560 
3530 PRINT"DINPUT DEGREES 

FAHRENHEIT":INPUTVL 
3540 CLS:PRINT@33,VL;"DEGREES 

FAHRENHEIT EQUALS" 
3550PRINT@97,(VL-32)"5/9; 

"DEGREES CENTIGRADE": 

GOTO 3590 
3560 PRINFDINPUT DEGREES 

CENT!GRADE":INPUTVL 
3570 CLS:PRINT@33,VL;"DEGREES 

CENTIGRADE EQUALS" 
3580PRINT@97,32 + VL*9/5; 

"DEGREES FAHRENHEIT" 
3590A$ = INKEY$:IFA$ = 

""THEN 3590 
3600 IF A$=CHR$(13) THEN RETURN 

ELSECLS:GOTO 3500 
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Here are two more characters— a 
snake and a monkey— to complete 
your jungle scene, plus some 
ideas on how to animate the 
picture and how to save memory 



In earlier parts of this feature, you have already 
seen how to define large numbers of characters 
on your computer, and started to use this to 
build a picture of a jungle scene. 

The jungle scene program was made up of a 
number of sections, each one defining the 
UDGs (except on the Dragon and Tandy, see 
page 489). Each section made part of the 
picture — the crocodile, elephant, trees and so 
on. The second half of the program, which 
follows, adds a snake and a monkey and finishes 
the background. 

If you SAVEd the last half on tape or disc you 
can LOAD it back again, as this program needs 
the first half to RUN. If you have an Acorn 
computer, type this line before loading in the 
old progr am, as yo u did last time. Then type 
NEW and [RETURN] . 

PAGE = PAGE + &600 



The additional data lines you need to define the 
images are printed after the main programm- 
ing. Type these lines in first: 

130 REM poke snake data 

140 POKE 23676,254 

150 FOR n = USR "a" TO USR "r" + 7: READ 

a: POKE n,a: NEXT n 
160 POKE 23676,253 
170 FOR n = USR"a"T0USR [ 'j" + 7: READ 

a: P0KEn,a: NEXT n 
180 REM poke monkey data 
190 POKE 23676,252 
200 FOR n = USR "a" TO USR "u" + 7: 

READ a: POKE n,a: NEXT n 
210 POKE 23676,251 
220 FOR n = USR "a" TO USR"'u" + 7: 

READ a: POKE n,a:NEXT n 
230 POKE 23676,250 
240 FOR n = USR "a" TO USR "g" + 7: 

READ a: POKE n,a: NEXT n 
500 REM print snake 
510 INK 1 

520 POKE 23676,254 
530LETz = 144: FOR n = 2T0 7: F0Rm = 16 

TO 18: PRINT AT m,n;CHR$ z: LET 

1=2+1: NEXTm: NEXT n 
540 POKE 23676,253 
550 LET z = 1 44: FOR n = 8T0 12: FOR 

m = 17 TO 18: PRINT AT m,n;CHR$ z: LET 



z = z + 1: NEXTm: NEXT n 
600 REM print monkey 
610 INK 

620 POKE 23676,252 
630 PRINT AT 0,30;CHR$ 144;AT 1,24;CHR$ 

145;CHR$ 146;AT 1,28;CHR$ 147;CHR$ 

148 
640 PRINT AT 2,23;CHR$ 149;CHR$ 150; 

CHR$ 1 51 ;CHR$ 32;CHR$ 1 52;CHR$ 1 53 
650 PRINT AT 3,23;CHR$ 154;CHR$ 

155;CHR$ 32;CHR$ 32;CHR$ 156;CHR$ 

157;CHR$158 
660 PRINT AT 4,24;CHR$ 159;CHR$ 

160;CHR$ 32;CHR$ 161;CHR$ 162;CHR$ 

163;CHR$ 164 
670 POKE 23676,251 
680 PRINT AT 5,24;: FOR n = 144 TO 1 51 : 

PRINT CHR$n;: NEXTn 
690 PRINT AT 6,24;CHR$152;CHR$ 

153;CHR$ 153;CHR$ 153;CHR$ 153;CHR$ 

154;CHR$155;CHR$156 
700 PRINT AT 7,23;CHR$ 157;CHR$ 

158;CHR$ 159;CHR$ 32;CHR$ 32;CHR$ 

160;CHR$ 161;CHR$ 162;AT 8,22;CHR$ 

163;CHR$164; 
710 POKE 23676,250 
720 PRINT CHR$ 144;CHR$ 145;CHR$ 

32;CHR$ 32;CHR$ 146;CHR$ 147;AT 9,24; 

CHR$148;CHR$149;AT 10,24; 

CHRS150 
850 REM sun 
855 INK 6 
860 FOR n = 0TO 2'PI STEP .05: PLOT 

70,150: DRAW SIN n*12,C0Sn*1 2: 

NEXTn 
870 FOR n = TO 2'PI STEP PI/4: PLOT 

70,1 50: DRAW COS n'20,SIN n*20: 

NEXTn 
970 INK 
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140 PRINT" H HH^U UU 
U3RUX t cs UUIIIIS 

SVYH-"CHR$(34)"S&(7'C$ 

"UUUUflTWZjn #%')+-' 

155 POKE 1088,81 

175 TT = T:PRINT"@"TAB(rr'!l" 

M$:FORD = 1TO50:POKE55360, 

RND(1)*7 + 1:NEXTD 
180PRINT"H"TAB(T)"1]"M$ 

p 

The additional data lines you need to define the 
images are printed after the main program. 

180 PR0CSNAKE(1 28,1 00,1 46) 
190 PROCMONKEY(770,1 023,1 74) 
210COLOUR3:COLOUR128 
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The additional data lines you need to define 
the images are printed after the main 
programming. 

51 FOR Z = 144T0 759: READ X: 
POKE 1331 2 + Z,X: NEXT Z 

10OMS = "HS1UU cuu 
"G SB II II II II II 

ilium 

110M$ = M$+"dU345U67 







ADDING DATA TO COMPLETE 



USING HIGH RESOLUTION 



THE JUNGLE SCENE 



GRAPHICS 



DRAWING A SNAKE AND A 



MONKEY 



ANIMATING THE CHARACTERS 
SAVEiNG THE DATA AS 



COMPLETING THE BACKGROUND 



MACHINE CODE 




220VDU31,35,4:PRINT"HI" 

230VDU31,34,5:PRINT"THERE" 

410 DEF PROCSNAKE(X,Y,Z) 

420 VDU 5 

430 GCOL0,0 

440 FOR T = TO 17 

460 MOVE X + 32'(T DIV 3),Y-32*(T MOD 

3):VDUT + Z 
470 NEXT 

480 FOR T = 18TO 27 
490 MOVE X + 32'(-3 + (T DIV 

2)),Y-32*({T MOD 2) + 1):VDU T+Z 
500 NEXT 
510 VDU 4 
520 ENDPROC 

530 DEF PROCMONKEY(X,Y,Z) 
540 VDU 5 
550 GCOL0.3 
560 RESTORE 1960 
570 FOR T = TO 48 
580 READ A 
590 MOVE32*(A MOD 10) + X, 

Y-32*(ADIV10):VDUZ+T 
600 IF A = 63 THEN VDU Z + T,Z + T,Z + T 
610 NEXT 
620 VDU 4 
630 ENDPROC 
1160MOVE420,800 
1170 GCOL0,3 

1 180 FOR T = TO Pf*2 + .08 STEP 
DRAW 300 + 120*COS(T), 
100*SIN(T):NEXT 
1 1 90 FOR T = 700 TO 896:PLOT 77, 

300,T:NEXT 
1200 FOR T = TO Pl*2 STEP .3: 

MOVE300,800:DRAW 300 + 500 

*COS(T),800 + 450'SIN(T):NEXT 

The Dragon and Tandy jungle 



MtiKilimW, 



1960 DATA 8,12,13,16,17,21,22,23,25, 
26,31,32,35,36,37,42,43,45,46,47, 
48,52,53,54,55,56,57,58,59,62,63, 
67,68,69,71 ,72,73,76,77,78,80,81 , 
82,83,86,87,92,93,102 

Owners of a BBC with operating system . 1 

should delete Line 1190 and change Line 

1180 to: 

1 1 80 FOR T = TO Pl"2 + .08 STEP 

.08: MOVE 300,800: PLOT85,300 
+ 120*COS(T), 800 + 100*SIN(T}: 
NEXT 



Type in these data lines to define the shape of 
the UDGs. 

1400 REM SNAKE 

1410 DATA 0,0,0,0,0,0,3,14,31,31,63,67, 

65,254,254,225,71,63,0,0,0,0,0,0,0 
1420 DATA 0,0,0,0,255,12,28,28,28,254, 

143,1,0,4,248,208,224 
1430 DATA 0,0,0,0,0,0,0,0,0,0,0,128,240,56 
1440 DATA 52,99,225,225,225,96,47,31,14, 

6,2,1,0,0,0,0,0,0,0,0,3,15,63,127 
1450 DATA 255,225,240,248,252,255, 

255,126,60,28,124,247,247,115, 

31,1,0,0,0,0 
1460 DATA 255,191,159,143,199,194, 

127,64,128,128,64,63 
1470 DATA 48,112,248,249,253,255,189,255, 

0,0,0,0,192,252,190,63,63,24,240 
1480 DATA 9,5,7,5,249,67,243,251,255,252, 

238,239,255 
1490 DATA 192,224,208,223,224,129, 

1 93,227,243,247,255,248,240,224,1 92 
1500 DATA 0,0,0,0,255,129,195,199,199 
1510 DATA 239,239,255,0,0,0,0,0,0,0,0, 

128,248,31,140,158,191,191,255, 

0,0,0,0 
1520 DATA 0,0,0,1,15,62,206,30,61,121, 

243,247,247,63,1 5,3,0 
1530 DATA 30,127,191,95,93,61,250,240, 

1 94,252,1 94,1 92,1 92,224,224,240 
1540 REM MONKEY 
1550 DATA 1,2,4,8,16,32,64,128,0,0,0,3, 

31 ,63,1 27,252,0,0,0,224,248,252,252 
1560 DATA 62,3,15,15,15,15,14,14,12 
1570 DATA 3,142,240,192,128,0,0,0,1,1,3, 

3,3,3,3,3,248,240,224,224,192 
1580 DATA 192,192,192,30,14,110,76,56, 

0,0,0,0,0,0,0,0,0,0 
1590 DATA 1,28,28,56,56,112,112,224,224 
1600 DATA 3,3,1,1,1,0,0,0,192,224,224, 

240,248,248,252,1 26,3,7,1 5,31 ,63,62 
1610 DATA 126,252,192,192,128,0,0,0,3,7, 

0,0,0,0,0,0,128,223 
1620 DATA 127,63,31,31,15,7,7,3,0,128,128, 

1 92,1 92,1 92,224,240,252,1 26,1 26,127 
1630 DATA 63,63,31,31,15,15,7,3,3,131, 

131,131 




1640 DATA 255,255,231,231,255,252, 

172,183,128,192,224,224,224, 

224,224,224 
1650 DATA 1,1,0,0,0,1,3,7,248,255,255, 

255,255,255,255,255,0 
1660 DATA 255,255,255,255,255,255,255 
1670 DATA 15,255,255,255,255,255,255,255, 

1 99,255,255,255,255,255,255,255 
1680 DATA 223,239,255,255,252,128,0,128, 

224,240,248,248,240,96,0,0,0,0,200 
1690 DATA 232,248,248,120,112 
1700 DATA 7,15,15,31,31,31,63,63,255,255, 

255,255,255,255,255,255,192,224,224 
1710 DATA 224,224,224,192,192,0,0,1,1,3, 

7,14,60,240,224,192,128,128,0,0,0 
1720 DATA 0,0,0,0,0,3,15,31,63,63,63,63, 

1 26,254,252,240,1 91 ,1 91 ,63,63,63 



1730 DATA 63,63,63,15,7,7,7,7,7,7,7,192, 

131,135,159,191,255,254,252 
1740 DATA 252,248,240,224,192,128,0,0,0, 

1,3,7,6,6,4,0,127,254,240,224 
1750 DATA 64,64,0,0,192,0,0,0,0,1,1,3,63, 

31,63,127,254,252,248,240 
1760 DATA 7,3,0,0,0,0,0,0,240,192,0,0,0, 

0,0,0,7,7,15,31,31,31,23,23,224 
1770 DATA 192,128,0,0,0,0,0,7,6,4,0,0,0,0,0 



mk* 



90 PCLS3 

100 DRAW"BM62,1 C2DG6LG2LGLUHLGLD 
6GDGDGDG7DG2DRD3RD2FDFDL12H 
2LULU3HUH4UH2ULU5EUE4R3F3D 
2GLHURBD2R2E2U3HUHLHL4GL2G 
4DGD7FD2FDFDF2D" 
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110 DRAW" F2DFD2G3DGDGD2GD562L2GL 
G2LGLG2D3EUER2ND2RE2R2ER2ER 
EREUEUEUERD9FG4DG2DG2D2ND 
2R2D5E2U5E8U9E3R1 7F3D6FR3ER 
ERE2RE5UE3UE3UE" 

120 DRAVTU2NU2LH2LD3FDGDGDG4LGL 
GLG2LG2HU2EUEU4H3E2R4ERFRFE 
URUH2U6H3L4GH2L2G2DF2D4G 
2L2H2U2HUHUHUEUEUE2UEUEUE 
UEU2EUEREUL4D5L3D6L2D3L2D3" 

130 DRAW"BM24,16U3NL6DL8D2L2D2 
L2D9BM70,43D4G8BM3,64E3BM 
+ 10,10D3" 

140PAINT(50,50),2 

150 DRAW"BM56,34C1RDBF3DBL7DF 
2BE2BU2" 

160GET(0,0)-(76,80),M,G 



170PCLS 

180 DRAW"BM13,11C4G3L8H2U2EUE2E 

RERER8FR2F3RE3RERER1 1 FR3F2RF 

4R12FR3FR4ERER2ERERER3FD 

4GBU3GDG2LGFNR3GD2FDFL4" 
190 DRAW"H2LHLHLHL18G4LGL16HL 

3HLH9LHL2HL2G3DFR3BM23,6D3FDF 

5RF2R9ER2ER7BM52,8LGL3G2L 

11H2UE2R7F4" 
200 PAINT(60,1 0),3,4:PAINT(1 3,5),3,4 
210 DRAW"BM83,8C1DBL4BG5H3G4H 

5G5H4G5H3G4H4G3H8E4F2E2F2E2F 

2E2F4BM7J 3LH3E6F4E4FDFD 

2F9R2FR15E" 
220 GET(0,0)- (88,21 ),S,G 
370 CIRCLE(50,30),25,2:PAINT 

(50,30),2:DRAW"BM50,30C2NU 

30NE60NR84NF60ND84NG60NL 

84NH30" 
430PUT(10,166)-(98,187),S,PSET 
440 PUT(1 40,0) -(216,80),M,PSET 

The additions to each computer fit in exactly 
with the last program, and just extend it to 
include more characters — although on the 
Acorn computers, Dragon and Tandy you 
need the lines given below to call up the new 
routines. Again, the DATA statements from 
Lines 1400 to 1770 are common to the 
Spectrum, Commodore and Acorn com- 
puters. The Spectrum program starts off by 
adding more lines to POKE in the extra DATA, 
and the Acorn adds two new PROCedures. 

The Commodore listing, too, is just an 
extension of the last program: Line 51 adds 
another FOR . . . NEXT loop to POKE in the extra 
DATA for the new characters . Lines 1 00 to 1 20 
create the monkey, Line 140 creates the snake 
and Line 1 55 places a moon on the screen. The 
UDGs for the monkey are put into the string 
M$ to save memory. 

The Dragon draws the new characters, and 
GETs them into an array in the same way as it 
did for the characters in the last program. 

Each program also prints the UDGs in the 
correct positions to fit in with the picture. 



MORE CHANGES 



In addition to the extra lines above, the Acorn, 
Dragon and Tandy programs need changes to 
certain other lines: 



50 FOR T = 128TO 251 

200 PROCELE (800,460,223) 

1090 PR0CTREE2 (850 + RND(300), 

P + RND(20)- 30,243} 
1100PROCTREE1 (900 + RND(250), 

P + RND(20),236) 
1140PROCTREE2(RND(500),300 

+ RND(50),243) 




The Jungle scene on the Acorn 



FAT 



20DIMC(59} ! M(156),S(48),E(17), 
T1(1),T2(7),F1(7),F2<7) 

For the Acorn, these lines just change the first 
character used by the PROCedure, to compen- 
sate for the fact that there are now several more 
UDGs in memory. The new Line 50 changes 
the FOR ... NEXT loop to define the new 
number of UDGs. 

The Dragon and Tandy just DIMension two 
more arrays, one for each new character. 



THE COMPLETE PICTURE 



As you can see if you RUN the program, the 
screen is now full of characters and the picture 
seems complete. The snake, the monkey, and 
the sun (or, if you have a Commodore 64, the 
moon) are added by the extra lines. 

You might equally well have added more 
elephants, trees or crocodiles to the picture, 
but in any case you now have a whole set of 
characters to use in your own pictures. 



A HIGH RESOLUTION SUN 



Note how high resolution graphics have been 
used as well as normal character graphics — 
there is no reason why you should not combine 
the two, and the mixture gives a surprisingly 
good result. 

The Spectrum 'fills' its sun by drawing a lot 
of radii very close together, while the Dragon 
and Tandy are able to use their PAINT com- 
mand to fill a circle. The Acorns use a suitable 
PLOT command to fill in the circle. 

You can alter the picture further with other 
high resolution graphics: for example, you 
could add more hills, or even draw some lines 
to make the ground seem textured or cracked. 

The Commodore does not have high reso- 
lution graphics commands in BASIC, and it is 
difficult to draw the large yellow sun of the 
other computers. So an ordinary graphics 
character is printed instead — in this case 
shaped like a moon. 
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NEXT STEPS 



The range of changes you can make just with 
the UDGs is almost unlimited. Apart from 
changing the number of trees, snakes, mon- 
keys and so on, you can also use the graphics 
characters which make up these pictures for 
other things. 

An obvious example here, is to use the tree- 
tops in a different colour (white, if you can 
have white as well) for clouds, or as bushes. 

You should watch out for colour clashes, 
though. Suppose you want to use the tree-tops 
as bushes; you would need to place the bushes 
at the top of each hill, since the hills are green, 
and so the bushes would not show up otherwise 
(unless you had red bushes, of course . . .)■ 



ANIMATING THE PICTURE 



The advantages of building your picture from 
UDGs do not just end with the number of ways 
you can rearrange it once it is finished: you can 
convert it into a moving picture with very few 
changes. 

To animate the animals, for example, you 
could define one or two extra characters — a 
new trunk for the elephant, the snake with its 
head rearing up, or the monkey eating a banana 
are just a few of the many possibilities. 

Whatever you decide to have the animals 
doing, once you have defined the extra UDGs, 
you can simply follow the procedure for 
animation outlined in the articles on pages 350 
to 353, and pages 26 to 32. 

If you have a Commodore, you can already 
see a fairly crude example of this: the monkey 
and the crocodile are moved by the last routine 
in the program. All this does is PRINT the 
characters in the background colour and then 
rePRINT them elsewhere. The moon also 
changes colour. You can turn off the animation 
by altering Line 190 to GOTO 190. 

By using a series of different UDGs for 



different positions, and then PRINTing each 
one in turn, the movement can be made much 
more realistic, and either amusing or frighten- 
ing, or whatever else you wish it to be. 



HOW THE UDGs FIT TOGETHER 



If you are going to use the UDGs for 
animation, or in still pictures of your own, you 
can see how the various characters make up the 
monkey and the snake from the diagram above 
(the last article, on pages 484 to 49 1 shows how 
the crocodile is composed from the UDGs). 

The microtip gives some possible replace- 
ment DATA for the elephant which you might 
like to use for the animation. 

While the UDGs for the elephant, croco- 
dile, and snake might seem restricted to a 
jungle or zoo, you can use the trees (and bushes 
or clouds) in almost any picture that you might 
want to have in your programs. You should be 
able to design just as impressive screen 
displays yourself using similar methods. 



SAVEING MEMORY, 



The programs above use a lot of UDGs in 
order to show you how to use more than your 
computer's limit, and to give you some 
characters that you might like to use in your 
own pictures. 

But you can produce an impressive picture 
with far less UDGs, if you need to, by using 
each UDG over and over again. For example, 
you could create a whole herd of elephants. Or, 
if you included a wall in your picture, it could 
cover a large proportion of the screen, and yet 
only need two UDGs! 

By careful planning of what you want to 
draw, you can successfully create very interest- 
ing pictures with a surprisingly small number 
of UDGs. However, as it is quite straightfor- 
ward to have large numbers of UDGs, the only 
advantages to be gained from 'economising' on 




Animate your characters 

Here is some DATA which you can incorpo- 
rate into the main program to animate the 
elephant. It simply gives an alternative 
trunk position, so you could switch be- 
tween the two to simulate motion. The 
Dragon and Tandy have a DRAW com- 
mand instead of DATA which you must 
G ET into an array in the same way as the 
program does for the other characters. 



S 



DATA 0,0,0,0,0,1,3,3 
DATA 6,15,15,31,29,25,26,24 
DATA 24,24,12,12,6,0,0,0 



PCLS: DRAW"BM5,7C2GLFLD5F" 

For each computer, you must also change 
the relevant FOR. . .NEXT loops to set up and 
print the new UDGs and you need to 
DIMension a new array for the Dragon and 
Tandy. 

You can improve the animated elephant 
by moving it to a more prominent position 
than it is in at the moment. 

Animation tends to emphasise a charac- 
ter, so it is a good idea to use the animated 
part of your picture as the principal part. 
You can then divert the user's or viewer's 
eyes from any weaker parts of the picture. 

You can try animating any of the other 
characters in the same way. 



UDGs are in terms of the time you save by not 
typing them in, and the memory taken up by 
the DATA. The Spectrum, in particular, uses up 
a lot of memory to store its DATA, but there are 
ways to make some savings. 

You can conserve the computer's memory 
by SAVEing the bytes which make up your 
UDGs as a block of memory, and then deleting 
the DATA statements. Normally the computer 
stores each byte of DATA twice: once in the 
memory locations you POKE with the DATA, 
and again in the DATA statements themselves. 



To SAVE the DATA as bytes of CODE, use: 
SAVE "filename" CODE x,y 

where x is the start address of the block of 
memory you want to SAVE, and y is the length 
of the block. 

You should know the start address of the 
block of memory, as you need it to either POKE 
in the DATA, or to POKE the UDG pointer with 
the new start address. The article on pages 450 
to 457 explains how to find out what it is. 

The length of the block is quite simple: it is 
normally the number of UDGs you have in 
memory, times 8. In fact the program above 
which defines the UDGs for the jungle picture 
uses eight banks of UDGs, and starts each 
bank 256 bytes apart (instead of the minimum 
1 68 bytes). The reason for this is that it lets you 
change the pointer with just one POKE, as 
opposed to the normal two. It also means that if 
you want to SAVE the bytes as CODE, you must 
SAVE a block (256*8) bytes long. 

So, this command SAVEs the bytes for the 
jungle UDGs: 

SAVE"jungle UDG" CODE 63488,2048 

To LOAD the bytes back in again, you just type 
L0AD""C0DE. To LOAD it back to an address 
other than where it was SAVEd from, just add 
the new start address after the LOAD""CODE. 



SB 



The Commodore SAVEs machine code, or 
bytes of memory, to tape by altering four 
pointers to make the BASIC area correspond 
exactly with the block of memory you want to 
SAVE. It then SAVEs the data as normal. 

For example, to SAVE the data from the 
UDGs in the program above, first type: 

POKE 43,0: P0KE44,48: POKE45,230: 
POKE 46,55 



and press [RETURN]. Now enter this: 

SAVE"UDG DATA",1,1 

The computer now SAVEs a block of memory 
which starts where your character data begins, 



and ends at the end of your data. 

The ,1 immediately after the filename tells 
the computer that it is SAVEing to tape, while 
the second ,1 tells it that it is SAVEing machine 
code, or data. 

The four POKEs change the addresses which 
point to the start and end of BASIC. The 
article on pages 450 to 457 explains how this 
works for the start of BASIC (for the two 
POKEs, 43 and 44) and again with the other 
two POKEs, 45 and 46, for the end of BASIC. 
To LOAD the data back again, use this: 

L0AD"file name",!,! 



El 



The Acorn SAVEs data, or any block of 
memory, using the command 'SAVE, followed 
by the file name and two numbers. 

The first number is the first address in the 
block of memory you wish to SAVE, while the 
second number can be one of two things. It can 
either be the last address of the block of 
memory, plus one, or the length of the block of 
memory. If you are using the latter, you should 
put a plus sign at the beginning of the number: 
th is tells the computer to add the number to the 
start address. 



The data for the characters used by the 
programs above are stored in two places; one 
for the 'normal' UDGs, and another for the 
'extra' characters. Here is the command to 
SAVE the first section of data; it uses the end 
address, plus one, as its second number. 

*SAVE L 'UDGdata1" D C00D D00 

There are two points you should note from 
this: firstly that the numbers are in hexa- 
decimal . The second point to watch is that each 
hex number is separated by a space. 

To SAVE the second block of memory, first 
enter this line: 

A% = 131 : PRINT- USR (&FFF4) 

Take the middle four digits of the hex number 
that is PRINTed on the screen, and use it as the 
first number in this command: 

SAVE"UDGdata2"D (number) D+600 

You can LOAD it back in again using this: 

*L0AD"file name" 

ma 

These use the DRAW command, so there is no 
advantage in CSAVEing DATA. 
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WyEEON 
AND DEAUN 




Computers can be very good card 
players if you can program them 
correctly— and they never get bored! 
Here's how to program the graphics 
for a pack of cards 



Ostracized by your friends, relatives and 
colleagues for milking them of their cash at 
cards? Penniless from playing experts? In 
either case, over the next three parts of Games 
Programming, you'l! find the answer. Pro- 
gramming your computer to play Pontoon will 
give you a willing victim, or a way of playing 
without emptying the coffers. 

In this first part you'll see how to set up the 
graphics routine that makes up your pack of 
cards. The remainder of the program — the 
game itself— will follow in two sections. But 
don't forget to SAVE each section on tape as you 
build up the game. 



If you are not a Pontoon expert, don't 
worry. A full set of playing rules will be printed 
with the last part of the program. But first you 
need to program a pack of cards. 



The graphics routine which will enable you to 
display cards on the screen looks like this: 

10 BORDER 4: PAPER 4: INK 9: CLS : POKE 

23658,8: LETB = 0: LET C = 1 
20 FOR N = USR "A" TO USR "R" + 7: 

READ A: POKE N,A: NEXT N 
30 DIM C(52): FOR N = C TO 52: LET 



C(N) = N:NEXTN 
40 DIM A(1 3,1 3,2) 
50 FOR N = CT0 10: FOR M = C TO N: READ 

A(N,M,C),A{N,M,2): NEXT M: NEXT N 
60 FOR N = 1 1 TO 1 3: LET A(N,C,C) = 4: LET 

A(N,C,2) = 2: NEXT N 
70 LET CC = C: LET CP = 1 00 
80 GOSUB 5000 
500LETY = 0:LETX = 1 
525 LETZ = C(CC} 
530 GOSUB 5500 
540 STOP 
5000 CLS: PRINT AT 10,10; 

"SHUFFLING NOW" 



#V- 
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CARD LAYOUTS 



HIGH RESOLUTION GRAPHICS 



POSITIONING THE SPOTS 



DRAWING THE CARDS 



COMMODORE ROM GRAPHICS 



SHUFFLING THE PACK 



DEALING THE CARDS 



USING UDGS 



FOUR SUITS, THIRTEEN CARDS 
PICTURE AND ACE VALUES 



5010 FOR N = C TO 100 
5020 LET X= INT (RND*52) + C 
5030 LET Y = INT (RND*52) + C 
5040 LET Z=C(X): LET C(X) = C(Y): LET 

C(Y)=Z 
5050 NEXT N 
5060 CLS : RETURN 
5500 FOR N = YTO Y + 8: PRINT PAPER 7;AT 

N,X;"DDDDD": NEXT N 
5510LETST = INT((Z-C)/13) 
5520 LETCH = 144 + ST 
5530 LET VA=Z-(13'ST) 
5540 IF ST<2 THEN INK 2 
5560 LET AC = 147 + VA 



i 




5600 PRINT PAPER 7;AT Y,X;CHR$ AC;AT 
Y,X + 4;CHR$ AC;AT Y + 8,X;CHR$ AC;AT 
Y + 8,X + 4;CHR$AC 
5610FORN = CTOVA: IF A(VA,N,C)oB 
THEN PRINT PAPER 7;AT Y + A(VA,N,C), 
X + A(VA,N,2);CHR$CH 
5620 NEXT N 
5890 INK 9 
5900 RETURN 

9000 DATA 0,54,127,127,127,62,28,8,0, 
8,28,62,127,62,28,8,8,28,62,127, 
1 27,62,8,28,8,28,28,1 07,1 27,1 07,8,28 
9010 DATA 0,8,20,34,34,62,34,34,0,28, 

34,2,4,24,32,62 
9020 DATA 0,28,34,2,12,2,34,28,0,4, 

12,20,36,62,4,14 
9030 DATA 0,62,32,32,60,2,34,28,0,28, 

34,32,60,34,34,28 
9040 DATA 0,62,34,2,4,8,16,16,0,28, 

34,34,28,34,34,28 
9050 DATA 0,28,34,34,30,2,34,28,0,76, 

82,82,82,82,82,76 
9060 DATA 0,14,4,4,4,4,36,24,0,28,34, 
34,34,58,1 02,30,0,1 1 8,36,40,48,40, 
36,118 
9070 DATA 85,85,85,85,85,85,85,85 

00 DATA 4,2 
9110 DATA 2,2,6,2 
20 DATA 2,2,4,2,6,2 
30 DATA 1,1,1 ,3,7,1,7,3 
9140 DATA 1,1,1,3,4,2,7,1,7,3 

50 DATA 1,1,1,3,4,1,4,3,7,1,7,3 
9160 DATA 1,1,1,3,2,2,4,1,4,3,7,1,7,3 
9170 DATA 1,1,1,3,2,2,4,1,4,3,6,2,7,1,7,3 
9180 DATA 1,1,1,3,3,1,3,3,4,2,5,1,5,3, 

7,1,7,3 
9190 DATA 1,1,1,3,2,2,3,1,3,3,5,1,5,3, 
6,2,7,1,7,3 

The program works like this: 

The border, paper and ink colours 

are set up by Line 10 and the 

POKE puts the machine into 

upper case. The two variables 

■ — B and C — are used instead 

of the figures and 1 throughout. 

Owing to the way the Spectrum 

stores numbers and variables, you 

can save six bytes of memory each time 

and it allows the program to RUN on the 

16K Spectrum. 



Line 20 sets up the UDGs for symbols used 
for the four suits, and UDGs for numbers and 
letters used in the corners of the cards The 
DATA for these is held in Lines 9000 to 9070. 
Next, Line 30 sets up an unshuffled pack of 
cards. Array A, DIMensioned in Line 40 is filled 
with DATA from Lines 9100 to 9190 which 
gives the coordinates of the spots on each card. 
Line 50 fills part of the array with the positions 
of the suit symbols on the number cards. Line 
60 fills the remainder of the array with the 
position of the picture symbols. It would be 
possible to design proper pictures for the 
cards, but it would be rather tedious to enter all 
the data, and also difficult to fit in the 16K 
machine. 

Line70setsCCtol,andCPtol00.CCisthe 
current card, and is the element in the card 
array which is being dealt with by the program. 
CP is the number of chips in the player's 
possession. 

Line 80 calls the shuffling subroutine, 
starting at Line 5000. The screen is cleared, 
and the shuffling message is displayed by Line 
5000 itself. The shuffling is done by choosing 
two cards at random and swapping their 
positions. The FOR ... NEXT loop between 
Lines 5010 sees that 100 swaps are done. The 
laws of chance mean that sometimes the same 
card will be chosen by Lines 5020 and 5030 
and it will be swapped with itself. It doesn't 
really matter, though, because a very thorough 
shuffle will be given by 100 swaps. If you are 
not happy with swapping only 100 times, you 
can alter the value in Line 5010, but it'll soon 
take a ridiculously long time. 

The subroutine ends at Line 5060 which 
clears the screen and RETURNS. 

Line 525 sets variable Z equal to the value of 
the current card in array C, before Line 530 
calls the subroutine at Line 5500. This 
subroutine is concerned with displaying the 
cards on the screen. Line 5500 displays the 
cards — only the white background at this 
stage, but the symbols and numbers will be 
displayed by the rest of the subroutine. Line 
5510 works out which suit the chosen card is 
in — each of the suits is given a number from 
zero to three. Line 5520 works out which 
character string the UDG for that particular 
suit is stored in. Finally, you'll want to know 
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the number of the card within the suit — is it an 
ace, a two or perhaps a queen? 

Before the suit symbols can be displayed on 
the card, the ink colour must be set. Line 5540 
sets the colour to red if the suit number is one 
or zero, black otherwise. 

Line 5600 draws the card's number by 
picking out the appropriate UDG from those 
set up earlier. The suit symbols are displayed 
by Line 5610. The coordinates of each symbol 
are picked out from array A, and the UDG is 
printed at that position. 

Finally, INK 9 — the contrast ink — is set, and 
the program RETURNS. 



The program below is the Commodore 
graphics routine. If you have a Vic 20, make 
sure that you change Line 10 so that it reads as 
follows: 



10POKE36879,30:MU = 1( 
LE = 21:TX=6 



3:JM = 3: 



Commodore owners are very lucky because all 
the symbols needed for these card graphics are 
already on the machine, so special graphics 
routines do not have to be written: 

10 POKE 53280,6:POKE 53281,1: 

MU = 100:JM = 7:LE = 39:TX = 15 
20 FOR Z = 1 TO LE:E1$ = E1$ + "_": 

E2$ = E2$ + "B":NEXTZ: 

E2$ = E2$+"!0" 
30 DIM D${52):C$ = "^ffl*IS": 

CC$ = "A234567890JQK" 
40 FOR ZZ = 1 T0 4:F0RZ = 1 TO 13 
50X = X + 1:D$(X) = M!D$(C$,ZZ,1) 

+ M!D$(CC$,Z,1):NEXTZ,ZZ: PRINT "Q" 
60 FOR X = 1 TO 52 
70XX=INT(RND(1)*52)+1 
80DD$ = D$(X):D$(X) = D$(XX): 

D$(XX) = DD$:IFRND(1)<.50 THEN 130 
90 PRINT "@MMMS":T = RND 

(1)*3 + TX 
100 PRINT TAB(T)"||| H 

- 1": FOR ZZ = t TO 9 
110 PRINT TAB(T}"il| HIM^IM 

U |":NEXTZZ 

120 PRINT TAB(T}"| | j" 

130 NEXT X 
140Z = 

150 print "DBBBBBBBB 

160 FOR ZZ = 1 TO 10: PRINT 
"Ha";E1$:NEXTZZ 

170 PRINT "HSMHB";:PRINT 
"Ha"E2$;E2$ 

180 Z = Z + 1:NU = NU + 1:IFZ>52 THEN 

Z = 1 

190DD$ = LEFT$(D$(Z),1) 

200 D1$=RIGHT$(D$(Z),1):IF D1$ = "0" 




THEN D1$ = "10":D2$ = "10": GOTO 

220 
210D2$ = "D" + D1$:D1$ = D1$ 

+ "□" 
220 FOR D = 1 TO 500:NEXT D: 

PRINT"gCARD3 DDD |||||| ;Z 

240 print @BBBBBSSU'' 

TAB(T}"18[ 1": 

FOR ZZ = 1 TO 9 
250 PRINT TAB(T)",S| ■□aDDD 

3 |":NEXTZZ 
260 PRINT TAB(T)"fl| | 

D'*:IF DD$ = "ffl" OR DD$ = "ffl" 

THEN PRINT"g" 
270 PRINT "@BBBBBBBB" 

TAB(T);"U";D1$; 

"BBBMBBBBU";D2$ 

280 FOR ZZ = 1 TO 13:IF MID$ 

(CC$,ZZ,1 ) = RIGHT$(D$(Z),1 ) THEN 
JJ = ZZ 
290 NEXT ZZ:PRINT"SHM 

BBBBBBB"TAB(T);"U"; 



300 ON JJ GOSUB 700,520,530,540,550, 

560,570,580,590,61 0,650,670,630 
510 GOTO 180 

520 PRINT" HUIT'DDS 

"||HMMH"DD$:RETURN 

530 PRINT" gH|U"DD$"||MH" 
DD$"|iBM"DD$:RETURN 

540 PRINT"HU"DDS"|J"DD$ 

IIIIIIBBBB'dds 

"||"DD$:RETURN 
550 PRlNT"B|J"DD$"U"DD$ 

HIIBB DD$"||||HH 

DD$"|J"DD$:RETURN 
560 PRINT"HU"DD$"U"DD$ 

II II II BB dd$ u 

DDS"||HHHB"DD$ 

"H"DD$:RETURN 
570 PRINT"MU"DD$"||"DD$ 

"HUB dd$ hub 

DDS U ||"DD$'||||||BB" 
DD$"||"DD$:RETURN 
580 PRINT"BU"DD$"||"DD$ 
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IIIII DD$ IIHIJ 

DD$-'H"DDS-||||H" 
DD$"||||gJ"DD$"|T 
DD$:RETURN 

590PRINT"H|1"DD$"U"DD$ 
'IIIIIIS' W'U'W|| 
||M"DD$"H||H"DD$"||" 
DD$"||||||H % 'DD$"U"DD$ 

600 RETURN 

610 PRINT "||"DD$"U"DD$ 

II II £] II II £ 

u dd$ ii miss 

DD$"U"DD$' , ||||H" 

DD$"||||H"; 
620 PRINTDD$"||"DD$:RETURN 

630 PRiNT"aaHHHH«MII 
IIIIIIIIMMMIIIIII 
Hlllftbl + iUIIIIIIIBII 

:i a^iiMiiiiiniirii 

□ BMHIIINIIIII 

QBBSQ"; 

640 PRINT SUM II II II .3 



DD$"aHB":RETURN 

650 PRiNrn nan nail llll 
II II :: : :e Sllllllllll 

::i#i PMIIIIIIIIIlii: 

~rnailllllllll[DQBQ 

maiiiiiiiiiiGSBQE] 

660 PR NT SHIIIIIIII-Z] 

DD$"DB":RETURN 

670pRiNT"naHn"SnH|| 
111111113". -.■ ■■van 

iiiiiina-.B« » 

680 PRINT 5311111111113". 

■ ".Slllllllllld". 

■ □BQ-.SIIIIIIIIIID-. 

690PRIN?'l]||||||||||DflB" 

DDS"[5«":RETURN 
700PRINT"H|J"DD$' 1 |||| 

H^ii^Hlllllliiii i!BII 
llllilrfHIIIIIIl M 

II II II SI ^l H » II |i"DD$: 

RETURN 



The two P0 K Es in Line 1 of the 64 program set 
the background and border colours, whilst the 
single POKE in the Vic 20 program looks after 
the screen colour. MU is the chips that the 
player will need later on in the game, J M is used 
for displaying the cards on the screen, and TX is 
used to centre the cards during the shuffling 
display that you'll see when you RUN the 
program. LE is length of the Commodore's 
screen minus one. 

Line 20 is concerned with the graphics used 
as a background for the cards — they are 
displayed on the screen later on in the program 
by Lines 160 and 170. 

In Line 30 a string array is DIMensioned, 
and two strings are defined. D$ will hold the 52 
cards, C$ contains the four suit symbols and 
CC$ contains the numbers and letters used in 
the corners of the card graphics. 

The pack of cards is set up in Lines 40 and 
50. Now that the pack has been created in 
order, it will have to be shuffled — Lines 60 to 
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130 take care of this. Lines 100 to 120 show a 
screen display of the cards being shuffled. 

Once the cards have been put in a random 
order by the shuffling routine, they can be dealt 
on to the screen. Line 180 increments the card 
number within the pack — Z — and the number 
of cards so far dealt — NU. The line also sends 
the card counter back to the beginning of the 
pack once the last card has been reached — 
hence the 52 in this line. 

Lines 190 to 300 work out which card is at 
the top of the pack, and then displays it. The 
value and suit of the card are worked out in 
Lines 190 to 210. There's a pause before the 
card number is displayed by Line 220. The 
outline of the card is drawn starting seven lines 
down on the screen. 

You now have a white rectangle — a naked 
card — which needs dressing up with suit 
symbols and numbers or letters. Line 270 
looks after the numbers and letters — a charac- 
ter from ace to king is displayed in the top left- 



hand corner of the card, and in the bottom 
right. 

In order that the correct graphics can be 
displayed on the screen the program has to 
decide exactly what the card is — is it a 3, an 8 or 
a Queen? JJ is a number between 1 and 1 3, 
representing ace to king, and it is used to pick 
out the correct line of graphics symbols. These 
graphics symbols are written as subroutines 
between Lines 510 and 700. Every time DD$ 
occurs in these lines, the suit symbol is 
PRINTed on screen. Lines 510 to 600 are the 
layouts of the spots, and Lines 610 to 700 are 
the heads on the picture cards, which are built 
up from a combination of the Commodore's 
block graphics symbols. 



The first part of the pontoon program consists 
of rout ines which handle the graphics. Press 
BREAKl to clear any old UDGs then enter and 
RUN these lines to see the cards: 



20 M0DE1 

30 PROCSCREEN 

40 PRINT'HOLD ON WHILE I OPEN THE 

CARDS" 
50 VDU23,224,8,28,62,1 27,62,28,8,0 
60 VDU23,225,8,28,62,1 27,1 27,28,62,0 
70 VDU23,226,54,1 27,1 27,1 27,62,28,8,0 
80VDU23 3 227,8,28 3 28,107,127,107 ) 8,28 
90VDU23,228 ) 0,76 3 82,82,82,82,76,0 
100 VDU23,229,0,60,1 00,74,67,100,60,0 
1 1 VDU23,230,20,30,36,84,1 98,38,54,29 
1 20 VDU23,231 ,73,1 07,1 27,65,85,73,34,28 
130DIMC$(52),V{52) 
140 D$ = "A23456789" + CHR$(228) 

+ CHRS(229) + CHRS(230) + CHR$(231 ) 
150L$ = "JQK" 
160S$ = CHR$(224) + CHR$(225) 

+ CHR$(226) + CHR${227) 
170 FOR P = TO 3 
180 FOR T=0 TO 12 
190C$(P*13 + T + 1) = M1D$ 

(D$,T+1,1) 
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until 



200 V(P*13 + T+1)=T+1:IF T>9 THEN 

V(P*13 + T+1) = 10 
210IFT = 0THENV(P'13 + T + 1) = 11 
220C$(P*13 + T + 1) = C$(P*13 

+ T+1) + MID${S$,P + 1,1) 
230 NEXT 
240 NEXT 
260 PROCSHUFFLE 
270 FOR T=1 TO 52 
280 PROCCARD (500,700,T) 
290G = GET 
300 NEXT 
310 GOTO 260 
560 DEF PROCSHUFFLE 
570 PRINT'TM SHUFFLING THE CARDS 

NOW" 
580 CN = 1 

590X = 13:Y = RND(52) 
600 FOR P = 1 TO 250 
610 X = Y — 1:IFX = THEN X = 52 
620 Y = RND(52) 
630T$ = C$(X):C$(X)=C$(Y): 



C$(Y)=T$ 
640T=V(X):V(X) = V(Y):V(Y)=T 
650 NEXT 
660 ENDPROC 
670 DEF PROCCARD{X,Y,Z) 
680 LOCAL N 
690 VDU5 
700 GCOL0,3 
710MOVEX,Y:MOVEX,Y + 304: 

PLOT85,X + 152,Y:PLOT85, 

X + 152,Y + 304 
720S = ASC(RIGHT$(C$(Z),1)) 
730 IF S = 225 OR S = 227 THEN GCOL0,2 

ELSE GCOL0,1 
740A$=LEFT$(C$(Z),1) 
750 MOVEX + 10,Y + 290:PRINTA$ 
760 MOVEX + 115,Y + 40:PRINTA$ 
770N = VAL(A$) 
780 IF (N MOD 2 = 1 AND N< >7) THEN 

MOVEX + 60,Y + 166:VDUS 
790 IF N = 2 OR N = 3THEN MOVEX + 60, 

Y + 270:VDU S:MOVEX + 60,Y + 64: 




VDU S:GOTO 900 
800IFN = 4ORN = 5THENNS = 2 
810IFN = 6ORN = 7ORN = 8THEN 

NS = 3 
820 IF N = 9 OR ASC(A$) = 228 THEN 

NS = 4:GOTO840 
830 I F N = TH EN MOVEX + 42,Y + 286: 

PRINTMID$(L$,ASC(A$) -830,1): 

MOVEX + 80,Y + 40:PRINTMID$ 

(L$,ASC(A$) - 830,1 ):MOVEX + 60, 

Y + 166:VDUS:GOTO900 
840 FOR T2 = TO NS — 1 
850 MOVEX + 20,Y + 80 + 1 70/(NS - 1 ) 

•T2:VDUS 
860 MOVEX + 100,Y + 80 + 170/(NS-1) 

•T2:VDUS 
870 NEXT 
880 IF N = 7 THEN MOVEX + 60,Y + 205: 

VDUS 
890 IF N = 8 OR ASC(A$) = 228 THEN 

MOVEX + 60,Y + 205:VDUS: 

MOVEX + 60,Y + 120:VDUS 
900 VDU4 
920 ENDPROC 
1400 DEF PROCSCREEN 
1410 VDU28,0,1 8,39,1 4 
1 420 VDU1 9,0,2,0,0,0:VDU1 9,2,0,0,0,0 
1430 ENDPROC 

The cards are drawn on a MODE1 screen so 
Line 20 seesto this. Line 30calls PROCSCREEN 
which is located at Lines 1400 to 1430. Line 
1410 defines a text window in the centre of the 
screen, and the colours are set up by Line 1 420 . 

The player is told HOLD ON WHILE I 
OPEN THE CARDS. Lines 50 to 120 set up 
graphics for the suit symbols along with the 
figure 10 — set up as one character for ease of 
display later on — and the three heads used in 
the corners of the J, Q, K cards. 

Two arrays are DIMensioned in Line 130 — 
C$ will hold the suits and the numbers and 
letters used in the cards, and V will hold the 
values of each of the 52 cards. D$ holds all the 
numbers and the heads, whilst L$ holds J, Q, 
K. S$ holds the four suit symbols. 

Next, C$ and V are filled using the two FOR 
. . . N EXT loops in Lines 1 70 and 1 80 and Li nes 
230 and 240, In the case of C$, Line 190 picks 
out the elements from D$ and puts them in the 
correct element of the array. The remainder of 
the array is filled from S$ by Line 220. The 
values of the cards are fed into array V by Line 
200 — all cards above nine have the value ten, 
so the last part of the line looks after that. 
Finally, the ace can take two values, 1 1 as well 
as one, so Line 210 checks if the card is an ace 
and puts the value 1 1 into V. 

Line 260 calls PROCSHUFFLE, found at 
Lines560to660.Aftertheplayerhasbeentold 
I'M SHUFFLING THE CARDS NOW, by 
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Line 570, the card number CM is set to one by 
Line 580. PROCSHUFFLEworks by picking two 
cards and then exchanging them. The FOR . . . 
NEXT loop between Lines 600 to 650 shuffles 
the cards 250 times. Line 590 starts the process 
by picking card 13 and a random card and 
swapping them, The shuffle proceeds — Lines 
610 to 640 — by subtracting one from the last 
random position and swapping it with a new 
random card. And so on for 250 swaps. 

Line 270 sets up a FOR . . . NEXT loop which 
ensures that 52 cards are dealt. Line 280 calls 
PROCCARD which displays the card. The two 
numbers ensure that the cards are displayed at 
the correct position — X and Y are the coordi- 
nates of the bottom left hand corner of the card . 
A variable, N, is defined as LOCAL in Line 680. 
VDU5 in Line 690 allows text to be printed at 
the graphics cursor. 

The white background is displayed by Line 
710. Line 720 enables you to find out if the 
card is a red or a black suit. Line 730 tests the 
value of S, and sets either red or black — 
GCOL0,2 is black, and GCOL0,1 is red. With the 
colour set, Lines 750 and 760 place the 
characters at the corners of the cards. 

The spots are displayed by Lines 770 to 
890. Line 770 takes the number of the card in 
A$, and then Lines 780 to 890 look at N and 
display the spots in the correct positions. 

Line 900 switches back to the text cursor. 

Line 290 makes the program pause until a 
key is pressed, when it displays a new card. 
After 52 cards have been dealt Line 3 1 repeats 
the shuffling and dealing loop. 



The section of program for the Dragon and 
Tandy machines which handles the card 
graphics is as follows . Type itinandRUNitand 
you'll be dealt 52 cards, one at a time: 

M PM0DE3J 

J^LS:PEINT@228,'TM SHUFFLING THE 

30 DiMNU$(13):F0R K=1 TO 13:READ 
NOfiffNEXT 

40 DATA BD2S4U5ER5F02NL5D3,RDLDR, 
RDNLDL,DRDU2,NRDRDL,D2RUL, 
RS8DGD,ND2RDNLDL,NDRDNLD, 
D2S1 6BRS1 2NU2RU2L,S4BD5F2R 
2U6L3R4,S4N|£D6R3NH2NFR2ll6, 



1 



>4N|5D6R3NH 
12N™W^ 
i3« Ik ' 
3 0KEK,A;POKE 
>24miW,23 



DNDS8RS1 
50FORK=1536J 1 1536 STEP 32 

60 READA.BiPOKERjAiPOKEK + LBiNEXT 
70 DATA 60,224^,1^4,238,236,187, 

184,238,236,187,184,46,224,59, 

176,14,192,11,128,2,0 
80 DATA 2,0,3,fl,1 1 ,1 28,1 4,1 92,59,1 76, 

238,236,59,176,14,192,11,128,3,0,3,0 
90 DATA 1,0,6,64,9,128,38,96,25,144, 



102,100,153,152,102,100,153, 

152,34,32,1,0 
1 00 DATA 2,0,9,128,6,64,9,1 28,34,32, 

153,152,102,101,153,152,102, 

101,17,16,2,0 
110D1MC(3),D(3),H(3),S(3),SQ(61) 
120GET{0,0)-(13,10),H,G 
130 GET(0,11)-(1 3,21 ),D,G 
140GET(0,22)-(13,32),S,G 
150GET(0,33)-(13,43),C,G 
160FORK = 0TO51:SQ(K) = K:NEXT 
170 SCREEN 1,1 
180 GOSUB 1500: N = 
190 PCLS 6: FOR CX = 6 TO 200 STEP 50: 

FOR CY = 11 TO 108 STEP97 
200 GOSUB 1000: GOSUB 2000: FOR J = 1 

TO 500: NEXT J,CY,CX 
210 FOR J = 1 TO 1000: NEXT: GOTO 190 
1000ST = INT(SQ(N)/13) + 1:NM 

= SQ{N)-13 , ST + 14:N = N + 1: 

IFN>51 THEN N = 
1010 RETURN 

1 500 FORX = 52 TO 2 STEP — 1 
1510 Q=RND(X) 
1520T=SQ{X-1):SQ(X-1) = SQ(Q-1): 

SQ(Q-1)=T 
1530 NEXT 
1540 FORX = 0TO9:SQ(X + 52)=SQ(X): 

NEXT 
1550 RETURN 
2000 LINE(CX,CY) - (CX + 44,CY + 72), 

PRESET,BF 
2010S$ = NU$(NM) 

2020 IF ST>2 THEN C0L0R7 ELSE C0L0R8 
2030 DRAWS12BM" + STR$(CX + 3) + "," 

+ STR$(CY + 2) + S$ 

2040 DRAW"S1 2BM" + STR${CX + 35) + "," 

+ STR$(CY + 64) + S$ 
2050 IF (NM/2o1NT(NM/2)AND 
NM<>7)ORNM>10THENPX= 
CX + 16:PY = CY + 31:GOSUB2500 
2060 IFNM = 2 OR NM = 3 OR NM = 10 OR 
N M = 8 THEN PX = CX + 1 6: PY = CY + 1 9: 
GOSUB2500:PY = PY + 24:GOSUB2500 
2070 IF NM = 7 THEN PX=CX + 16: 

PY = CY + 39:GOSUB2500 
2080 IF NM <4 OR NM > 10 THEN 2140 
2090 IF (NM = 10 OR NM = 8)THEN 
NS = INT((NM-1)/2) ELSE 
NS = INT(NM/2) 
2100 FOR J = 0TO NS-1 
2110 PX = CX + 3:PY = CY + 12 + J*38/ 

(NS-1):GOSUB2500 
2120PX = CX + 30:GOSUB2500 
21-30 NEXT 
RETURN 

ON ST GOTO 2510,2520,2530,2540 
PUT(PX,PY) - (PX + 13,PY+ 10), 
RETURN 

(PX,PY)-(PX + 13,PY + 10), 
RETURN 




2530 PUT(PX,PY)-(PX+13,PY + 10), 

C,0R: RETURN 
2540 PUT(PX,PY)-(PX+13,PY + 10), 

S,0R:RETURN 

A four-colour mode has been chosensothatthe 
suit symbols can be displayed in blue and red. 
Line 10, then, sets PM0DE3. Line 20 tells the 
player that the cards are being shuffled. 

As the cards are drawn on the high reso- 
lution screen, no characters are available via the 
keyboard. The Ace, King, Queen and Jack 
symbols, and the numerals from two to ten are 
DRAWn from the DATA in Line 40. The 
D R AWing instructions are R EAD into array N U$ 
by Line 30. 

The symbols for hearts, diamonds, spades 
and clubs are POKEd on to the screen from the 
DATA in Lines 70 to 90. As soon as the symbols 
have been displayed, GET is used to place the 
symbols in memory — Lines 120 to 150. The 
arrays for the symbols have been DIMensioned 
in Line 1 10, along with array SO. which is used 
for shuffling the cards. Line 160 fills the first 
52 elements of SQ with numbers to 51. 

Line 180 calls the shuffling subroutine — 
Lines 1500 to 1550 — which orders the cards 
randomly. N is set equal to zero in Line 180 so 
that the first card in SO is being looked at. 

Line 1 90 colours the screen cyan and sets up 
two FOR . . . NEXT loops using variables CX and 
CY, which will be used later for positioning 
symbols on the cards. 

Line 200 calls two subroutines. Firstly, 
Lines 1000 and 1010 calculate the suit— ST— 
and the number — N M — of the card in SQ. Lines 
2000 to 2140 calculate the positions that the 
symbols will have to be PUT on the screen to 
represent that card. 

The subroutine looks very complicated, but 
with the help of a pack of cards you should be 
able to understand what is happening. There 
are several recurring patterns which make up 
the cards — the lower cards just use one pattern, 
and the higher cards use a combination of two 
or more. The subroutine checks which of the 
patterns are needed for the displayed card. 

But before the spots are worked out, the 
numbers or l etters are DRAWn in the two 
[the card by Lines 2030 and 
rmation in array NU$. 
Be spots are worked out by 
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CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index-in the last issue of INPUT. 



Adventure stories 
Animating UDGs 
Applications 

conversions program 

extend your typing 
Arrays 

in adventure games 
ASCII codes 
Assembler 

Dragon, Tandy 
Autorun 
Axes for graphs 

415-416, 



422-424 
532 

520-527 
498-503 

425, 427 
420-421 

440-444 
460-461 

470-471 



B 



Bandwidth 

of TVs and monitors 447 
Barchart 470-476 

Basic programming 

Commodore 64 

graphics 420-421 

formatting 433-439 

making more of UDGs 450-457 

pictures from UDGs 484-491 

plotting graphs 413-419, 

470476 

protecting programs 458-463 

wireframe drawing 509-513 

pictures from 

UDGs— 2 528-533 

Bootstrap programs 459-463 

Bug Tracing 477-483 



Cardgame graphics 534-540 
Cassette storage 504-505 

recording quality 504-505 

tapes 504 

transmission rate 505 

Character sets 
redefining, with UDGs 

450-457 
Circles, drawing 513 

Colour for screen displays 

433-434 



Data storage 413 

Disk drives 506-508 

operating system 508 

interfaces 508 

storage capacity 506 

Displays, improving 433-439 

Dragon assembler 440-444 



Drop outs 504 

Duck shooting game 

492-497 



Editing programs 

Commodore 64 420 



FLASH command 

Spectrum 
Flashing alien 

ZX81 



Games programming 



434 
430-431 



adventures, planning 


your own 




422-427 


duck shooting game 


492-497 


using joysticks 


464-469 


pontoon game 


535-540 


Get routines 




adventure games 


426 


Graphics, ROM 




Commodore 64 


420 


Graphs 


413-419 


Grid, drawing a 


512-513 


H 




Histograms and barcharts 




470-476 



Imperial to metric 

conversions 520-527 

Interupt driven routines 

478-483 
Inverting the screen 
ZX81 All 

J 

Joysticks, 

duck shooting game 492-497 
in games 464-469 

interface, Electron 467-468 

JOYSTK 

Dragon, Tandy 468-469 

Jungle picture 485-491 

L 

Legends 

for graphs 416 

M 

Machine code programming 

animation 
Vic 20, ZX81 



assembler 




s 






Dragon, Tandy 


430-444 






Spectrum 


477-^82 


Screen pictures 






Memory 




from UDGs 




484-491 


SAVEing on tape 


532-533 


Serial access 






Microdrive? 


505 


tape systems 




505-506 


Monitors and TVs 


445-449 


Sine waves 




415 


Multicoloured background 490 


Speed POKE 










Dragon, Tandy 




444 


N 




Stunt rider UDG 






Number keys 




Vic 20 




429 


redefining 


45(M57 


Submarine UDG 

Vic 20 




430 







Superexpander cartridge 




Vic 20 




414 


Objects in adventures 


424, 427 


SYS 






On-board graphics 




Commodore 64, Vic 20 


462 



p 

Fie charts 474-476 

Peripherals 

data storage devices 

504-508 

TVs and monitors 445^-49 
Planning screen displays 

433-439 
Pontoon program 534-540 

PRINT 

Acorn Commodore 64, 

Spectrum, Vic 20 434 

PRINT AT 

Acorn 434 

Spectrum 434, 436 

PRINT SPC 

Commodore 64, Vic 20 434-435 
PRINT TAB 

Acorn 434, 438 

Commodore 64, Vic 20 435 

Spectrum 434 

PRINT® 

Dragon, Tandy 435 

Program symbols 

Commodore 64 420 

Protecting programs 459-463 
Pseudo hi-res graphics 

ZX81 432 



Q 



Quote mode 

Commodore 64 



420 



R 



428-432 



Reverse graphics symbols 

Commodore 64 420 

ROM graphics 

Commodore 64 420 



Tandy assembler 
Tape storage 

loops 
Title pages, for games 
Tokens 

Commodore 64 
Trace program 

Spectrum 

using 

Commodore & Vic 20 

using 
TVs and monitors 
Typing tutor 

part 4 

u 

UDGs 

animals 491 

building up a character 
from a number of 484-491 
creating extra 450 

redefining numbers 452-457 
SAVEing on tape 532-533 

& high resolution graphics 531 
storing the data 451-457 



44CM44 

504-505 

505 

433-439 

421 

477-483 
483 

514-519 
519 

445-449 

498-503 



V 



Variables, list of 

for adventure game 
Volatile storage 

w 

Wireframe drawing, 

and colour 
Words, in adventures 



425-427 
504 



512 
424-426 



The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 
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O Type in the COMPUTER AIDED 
DESIGN program and create detailed 
drawings -with easy fingertip control 

(-J With your pack of cards ready and 
shuffled, it's time for THE PLAYER'S 
TURN AT PONTOON 

LJ Now you have learned to build flat 
shapes, it's time to start creating 
WIREFRAMES IN 3-D 

LJ Discover the advantages of WORD- 
PROCESSING— the sophisticated office 
tool that's finding its way into the home 

LJ And for ACORN users, there's a 
MACHINE CODE PACKER 
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